ch15/SafeHello.hs


1
2
3
4
5
6
7
8
9
10
11
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 --}