cerchez07/elm-0.19-workshop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add annotations to 4

Browse Source
This commit is contained in:
Richard Feldman
2016-08-19 04:45:33 -07:00
parent 4b9c905b0d
commit 855103ba3b
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
part4/Main.elm
View File

@@ -24,6 +24,7 @@ type Msg
| DeleteById Int | DeleteById Int
initialModel : Model
initialModel = initialModel =
{ query = "tutorial" { query = "tutorial"
, results = , results =
@@ -51,6 +52,7 @@ initialModel =
} }
elmHubHeader : Html Msg
elmHubHeader = elmHubHeader =
header [] header []
[ h1 [] [ text "ElmHub" ] [ h1 [] [ text "ElmHub" ]
@@ -89,12 +91,15 @@ viewSearchResult result =
] ]
update : Msg -> Model -> Model
update msg model = update msg model =
-- TODO if we get a SetQuery action, use it to set the model's query field, -- 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 -- and if we get a DeleteById action, delete the appropriate result
model model
main : Program Never
main = main =
Html.beginnerProgram Html.beginnerProgram
{ view = view { view = view