]> Git — Sourcephile - majurity.git/blob - hjugement/test/HUnit/Utils.hs
protocol: Add Election
[majurity.git] / hjugement / test / HUnit / Utils.hs
1 module HUnit.Utils where
2 import Data.Bool
3 import Data.List
4 import Data.String (String)
5 import Data.Ord (Ord(..))
6
7 elide :: String -> String
8 elide s | length s > 42 = take 42 s ++ ['…']
9 | otherwise = s