From 855103ba3ba0477df3e18406b623b8a872b29d00 Mon Sep 17 00:00:00 2001 From: Richard Feldman Date: Fri, 19 Aug 2016 04:45:33 -0700 Subject: [PATCH] Add annotations to 4 --- part4/Main.elm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/part4/Main.elm b/part4/Main.elm index e3019c7..7564d66 100644 --- a/part4/Main.elm +++ b/part4/Main.elm @@ -24,6 +24,7 @@ type Msg | DeleteById Int +initialModel : Model initialModel = { query = "tutorial" , results = @@ -51,6 +52,7 @@ initialModel = } +elmHubHeader : Html Msg elmHubHeader = header [] [ h1 [] [ text "ElmHub" ] @@ -89,12 +91,15 @@ viewSearchResult result = ] +update : Msg -> Model -> Model update msg model = -- TODO if we get a SetQuery action, use it to set the model's query field, -- and if we get a DeleteById action, delete the appropriate result model + +main : Program Never main = Html.beginnerProgram { view = view