From d5ec91d4d01db6f4d476522d5b14e116435ebb7d Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 15 Mar 2015 20:15:19 +0100
Subject: Displaying the last score in elm graphics instead of in helm html

---
 src/View/Page.elm | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

(limited to 'src/View/Page.elm')

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
-- 
cgit v1.2.3