diff options
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 |