module View.Round ( roundView ) where import Model.Round (..) import View.Time (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