module Yahb2Defs where


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