diff options
| author | Joris Guyonvarch | 2015-03-15 20:15:19 +0100 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-03-15 20:16:14 +0100 |
| commit | d5ec91d4d01db6f4d476522d5b14e116435ebb7d (patch) | |
| tree | 76154fddf12254db1488e17752c41530ef8f6095 /src/View/Page.elm | |
| parent | ce6775641639943a2aee00fa9c2d684aa434bc21 (diff) | |
| download | catchvoid-d5ec91d4d01db6f4d476522d5b14e116435ebb7d.tar.gz catchvoid-d5ec91d4d01db6f4d476522d5b14e116435ebb7d.tar.bz2 catchvoid-d5ec91d4d01db6f4d476522d5b14e116435ebb7d.zip | |
Displaying the last score in elm graphics instead of in helm html
Diffstat (limited to 'src/View/Page.elm')
| -rw-r--r-- | src/View/Page.elm | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/src/View/Page.elm b/src/View/Page.elm index c85cf91..88b641e 100644 --- a/src/View/Page.elm +++ b/src/View/Page.elm @@ -14,7 +14,7 @@ import Model.Game (Game) import Model.Round (..) import View.Game (gameView) -import View.Time (timeView) +import View.Round (roundView) pageView : Game -> Html pageView game = @@ -41,12 +41,6 @@ pageView game = |> text ] ) - , ul - [ class "rounds" ] - ( List.map - (\round -> li [] [ text (roundView round) ]) - game.rounds - ) , a [ href "https://github.com/guyonvarch/catchvoid" ] [ img @@ -63,10 +57,3 @@ pageView game = [] ] ] - -roundView : Round -> String -roundView round = - let score = toString round.score - hits = "hit" ++ (if round.score > 1 then "s" else "") - duration = timeView round.duration - in score ++ " " ++ hits ++ " within " ++ duration |