diff options
Diffstat (limited to 'bwrap-files/workdir')
| -rw-r--r-- | bwrap-files/workdir/Yahb2Defs.hs | 8 | ||||
| -rwxr-xr-x | bwrap-files/workdir/entry.sh | 6 |
2 files changed, 14 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 ++ "...") diff --git a/bwrap-files/workdir/entry.sh b/bwrap-files/workdir/entry.sh new file mode 100755 index 0000000..1a466da --- /dev/null +++ b/bwrap-files/workdir/entry.sh @@ -0,0 +1,6 @@ +#!/bin/bash +set -euo pipefail + +cd "$(dirname "$0")" + +ghcup --offline run -- ghci Yahb2Defs.hs 2>&1 |