diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-02-03 16:47:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-02-03 16:47:24 -0400 |
| commit | 146c36ca545a297f1e44e3cf2c91f3c0e17c909f (patch) | |
| tree | 56d6fb274427bb793155182aed7e92e2e00895ba /CmdLine.hs | |
| parent | 05f89123e08075cfbd136f37c60423c1ad38d1fe (diff) | |
IO exception rework
ghc 7.4 comaplains about use of System.IO.Error to catch exceptions.
Ok, use Control.Exception, with variants specialized to only catch IO
exceptions.
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index 61e6c26bb..18bb5fe51 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -11,7 +11,6 @@ module CmdLine ( shutdown ) where -import qualified System.IO.Error as IO import qualified Control.Exception as E import Control.Exception (throw) import System.Console.GetOpt @@ -74,7 +73,7 @@ tryRun' errnum _ cmd [] | otherwise = return () tryRun' errnum state cmd (a:as) = run >>= handle where - run = IO.try $ Annex.run state $ do + run = tryIO $ Annex.run state $ do Annex.Queue.flushWhenFull a handle (Left err) = showerr err >> cont False state |