module Hix.Managed.Report where

import Exon (exon)

plural ::
  Eq a =>
  Num a =>
  a ->
  Text
plural :: forall a. (Eq a, Num a) => a -> Text
plural a
num | a
num a -> a -> Bool
forall a. Eq a => a -> a -> Bool
== a
1 = Text
""
           | Bool
otherwise = Text
"s"

describeIterations :: Natural -> Text
describeIterations :: Natural -> Text
describeIterations Natural
iterations =
  [exon|#{show iterations} iteration#{plural iterations}|]