elm/lootalot-client
1
0
Fork 0
Code Issues 3 Pull Requests Releases Wiki Activity

decided to internalize modes inside Chest.elm

Browse Source
This commit is contained in:
Arthur Gerbaud
2019-12-04 19:16:16 +01:00
parent 976fbe6b4b
commit b97be8c321
9 changed files with 332 additions and 242 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Wealth.elm
View File

@@ -15,11 +15,10 @@ init =
View
view : Wealth -> Model -> List (Html Msg)
view wealth model =
div [ class "level-item" ]
[ span [ class "icon is-large" ] [ i [ class "fas fa-2x fa-piggy-bank" ] [] ]
, span [ class "icon", onClick StartEdit ] [ i [ class "fas fa-tools" ] [] ]
]
[ span [ class "icon is-large" ] [ i [ class "fas fa-2x fa-piggy-bank" ] [] ] ]
:: (case model of
View ->
viewWealth wealth
@@ -27,6 +26,7 @@ view wealth model =
Edit amount ->
viewUpdateWealth amount
)
++ [ span [ class "icon", onClick StartEdit ] [ i [ class "fas fa-tools" ] [] ] ]
viewUpdateWealth amount =