blob: 1072a6a2b21c0d7a90460e1ea3771f8180b8bcef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
Description: Use Control.Exception.catch
Author: Joachim Breitner <nomeata@debian.org>
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.IO
import Text.XML.HaXml hiding (when,version,x,tag,cdata)
import Text.XML.HaXml.Posn
+import Control.Exception (catch, IOException)
import Config
import Darcs
@@ -182,9 +184,9 @@
readSeenPatches :: MonadIO m => String -> m SeenPatches
readSeenPatches repo =
- 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
processRepo :: (MonadConfig m, MonadIO m) => Bool -> Command m -> FilePath -> m ()
|
