Displaying the last score in elm graphics instead of in helm html

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