protocol: add FromNatural/ToNatural

[majurity.git] / hjugement / test / HUnit / Utils.hs

module HUnit.Utils where
import Data.Bool
import Data.List
import Data.String (String)
import Data.Ord (Ord(..))

elide :: String -> String
elide s | length s > 42 = take 42 s ++ ['…']
        | otherwise = s