bwrap-files/workdir/Yahb2Defs.hs


1
2
3
4
5
6
7
8

module Yahb2Defs where


limitedPrint :: Show a => a -> IO ()
limitedPrint x =
  case splitAt 200 (show x) of
    (s, "") -> putStrLn s
    (s, _) -> putStrLn (take 197 s ++ "...")