Как бороться с ленью?

import System.IO
import System.Directory
myCopyFile :: Handle -> Handle -> IO ()
myCopyFile src dst
        = do body <- hGetContents src
               hClose src
               hPutStr dst body
               hClose dst
               putStr ("File was written ")
 
getSrc :: IO Handle
getSrc  = do putStr "Введите источник: "
                  src <- getLine
                  catch (openFile src ReadMode)
                           (\e -> do putStr ("Repeat")
                                        getSrc)
getDst :: IO Handle
getDst = do putStr "Введите приемник: "
                dst <-getLine
                catch (openFile dst WriteMode)
                        (\e -> do putStr ("Repeat")
                                     getDst)
main :: IO ()
main = do src <- getSrc
              dst <- getDst
              catch (myCopyFile src dst)
                       (\e -> do putStr ("abc" ++ show e)
                                    main)

import System.IO
import System.Environment
import System.Exit
 
import Text.Printf
 
copy :: FilePath -> FilePath -> IO ()
copy from to = readFile from >>= writeFile to
 
die :: String -> IO ()
die msg = hPutStrLn stderr msg >> exitFailure
 
main :: IO ()
main = do
  args <- getArgs
  case args of
    [from, to] -> if from == to
                 then die $ printf "`%s` and `%s` are the same file" from to
                 else copy from to
    otherwise  -> getProgName >>= die . printf "Usage: %s FROM TO"