aboutsummaryrefslogtreecommitdiff
path: root/src/View/Page.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/View/Page.elm')
-rw-r--r--src/View/Page.elm15
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