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