module Main exposing (..)

import Browser
import Html exposing (..)


main : Program () { window : Int } msg
main =
    Browser.sandbox
        { init = 1
        , view = view
        , update = \_ model -> model
        }


foo : Float
foo =
    0


bar : { window : Int } -> Float
bar model =
    1


view ({ iDontExist } as model) =
    let
        _ =
            foo iDontExist <| bar model
    in
    Html.text ""