diff options
Diffstat (limited to 'bwrap-files/workdir/Yahb2Defs.hs')
-rw-r--r-- | bwrap-files/workdir/Yahb2Defs.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/bwrap-files/workdir/Yahb2Defs.hs b/bwrap-files/workdir/Yahb2Defs.hs new file mode 100644 index 0000000..c0dfbfd --- /dev/null +++ b/bwrap-files/workdir/Yahb2Defs.hs @@ -0,0 +1,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 ++ "...") |