From b801218e7627f98556ab7d1acbefbbf8daafd851 Mon Sep 17 00:00:00 2001 From: Jan Sucan Date: Wed, 30 Jul 2025 10:29:40 +0200 Subject: 15_a_1 and 15_a_2: Add solutions --- ch15/SafeHello.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 ch15/SafeHello.hs (limited to 'ch15/SafeHello.hs') diff --git a/ch15/SafeHello.hs b/ch15/SafeHello.hs new file mode 100644 index 0000000..91a7ff1 --- /dev/null +++ b/ch15/SafeHello.hs @@ -0,0 +1,12 @@ +module SafeHello where + +import MonadHandle +import System.IO (IOMode(..)) + +{-- snippet safeHello --} +safeHello :: MonadHandle h m => FilePath -> m () +safeHello path = do + h <- openFile path WriteMode + hPutStrLn h "hello world" + hClose h +{-- /snippet safeHello --} -- cgit v1.2.3