Commit 7c85c74b authored by Joachim Breitner's avatar Joachim Breitner

darcs-monitor: Fix patch

parent 5c3bd57b
Description: Use Control.Exception.catch
Author: Joachim Breitner <nomeata@debian.org>
--- darcs-monitor-0.4.2.orig/darcs-monitor.hs
+++ darcs-monitor-0.4.2/darcs-monitor.hs
Index: darcs-monitor-0.4.2/darcs-monitor.hs
===================================================================
--- darcs-monitor-0.4.2.orig/darcs-monitor.hs 2013-05-18 15:43:35.000000000 +0200
+++ darcs-monitor-0.4.2/darcs-monitor.hs 2013-05-18 16:02:25.847617172 +0200
@@ -1,3 +1,4 @@
+{-# LANGUAGE ScopedTypeVariables #-}
{- darcs-monitor - Darcs repository monitor
Copyright © 2007 Antti-Juhani Kaijanaho
Copyright © 2007 Benja Fallenstein
@@ -36,6 +37,7 @@ import System.Exit
@@ -36,6 +37,7 @@
import System.IO
import Text.XML.HaXml hiding (when,version,x,tag,cdata)
import Text.XML.HaXml.Posn
......@@ -16,11 +18,15 @@ Author: Joachim Breitner <nomeata@debian.org>
import Config
import Darcs
@@ -184,7 +186,7 @@ readSeenPatches :: MonadIO m => String -
@@ -182,9 +184,9 @@
readSeenPatches :: MonadIO m => String -> m SeenPatches
readSeenPatches repo =
liftIO $ catch (do fc <- readFile (repo ++ seenPatchesFileName)
return (read fc)
- liftIO $ catch (do fc <- readFile (repo ++ seenPatchesFileName)
- return (read fc)
- ) $ \_ -> return Map.empty
+ liftIO $ Control.Exception.catch (do fc <- readFile (repo ++ seenPatchesFileName)
+ return (read fc)
+ ) $ \(_::IOException) -> return Map.empty
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment