blob: 2648aa82f52dd766e7b0d6d7ca130ab6636d2e9c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module View.Round
( roundView
) where
import Model.Round exposing (..)
import View.Time exposing (timeView)
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
|
