starmelon/examples/single-page/src/Main.elm

module Main exposing (view, view2, view3, view4, view5, badReturnType, true)

import Html exposing (Html, div, text)
import Svg exposing (Svg, svg)
import Array exposing (Array)
import Bytes exposing (Bytes)
import Bytes.Decode


type alias Model =
    { a : Int
    , b : Array Int
    }

view : String -> Html msg
view model =
    div []
        [ text <| "Hello world" ++ model ]

view2 : String -> Svg msg
view2 model =
    svg [] []


view3: Bytes -> Html msg
view3 model =
    case
        Bytes.Decode.decode
            (Bytes.Decode.string (Bytes.width model))
            model
    of
        Just decoded ->
            div []
                [ text <| "Hello world" ++ decoded ]

        Nothing ->
            text "Failed to decode"

view4 : String -> Html msg
view4 model =
    if model == "bar" then
        div []
            [ text <| "Hello world" ++ model ]
    else
        div []
            [ text "Hello world" ]

view5 : { t | x : String } -> Html msg
view5 { x } =
    div []
        [ text x ]

badReturnType : String -> Int
badReturnType _ =
    42

true : Bool
true =
    True