module Main exposing (view, view2, view3)

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