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

module Main exposing (view, view2, view3, badReturnType)

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
    }

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

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

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"

badReturnType : String -> Int
badReturnType _ =
    42