aboutsummaryrefslogtreecommitdiff
path: root/src/View/Round.elm
blob: a3f34e28df31b3739a99e2c30ede40de520e96cc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
module View.Round exposing
  ( roundView
  )

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