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