ResourcesWithManaged

ResourcesWithManaged.hs

import Control.Monad.Managed.Safe
import Control.Monad.IO.Class
import System.IO

main :: IO ()
main = runManaged $ do
  a <- managed $ withFile "a.txt" ReadMode
  b <- managed $ withFile "b.txt" ReadMode
  aContents <- liftIO $ hGetContents a
  bContents <- liftIO $ hGetContents b
  liftIO . putStrLn $ "contents of a: " <> show aContents
  liftIO . putStrLn $ "contents of b: " <> show bContents