Repository : ssh://darcs.haskell.org//srv/darcs/nofib On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c45a64666ecd1cde77cb80fe0bf3ab09df2ac249 >--------------------------------------------------------------- commit c45a64666ecd1cde77cb80fe0bf3ab09df2ac249 Author: Simon Marlow <[email protected]> Date: Mon Jul 9 16:10:57 2012 +0100 catch is no longer exported by Prelude >--------------------------------------------------------------- real/maillist/Main.hs | 7 +++++-- 1 files changed, 5 insertions(+), 2 deletions(-) diff --git a/real/maillist/Main.hs b/real/maillist/Main.hs index 386f731..4302a64 100644 --- a/real/maillist/Main.hs +++ b/real/maillist/Main.hs @@ -87,6 +87,8 @@ Desired enhancements: module Main where +import Control.Exception (catch, IOException) + type Line = String type Entry = [Line] type FileName = String @@ -105,8 +107,9 @@ mainLoop fns = putStr "\nFile to be converted: " >> case fns of [] -> putStr "\nGoodbye!\n" - (fn:fns') -> catch (readFile fn >>= process (fn ++ ".tex") fns') - (\err -> putStr ("\nCan't read " ++fn++ "; try again.\n") >> + (fn:fns') -> catch (readFile fn >>= process (fn ++ ".tex") fns') + (\err -> let _ = err :: IOException in + putStr ("\nCan't read " ++fn++ "; try again.\n") >> mainLoop fns') _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
