darcs-monitor 0.4.0 → 0.4.1

raw patch · 3 files changed

+3/−2 lines, 3 files

Files

EmailPatch.hs +1/−0
darcs-monitor.cabal +1/−1
darcs-monitor.hs +1/−1

EmailPatch.hs view

@@ -59,6 +59,7 @@   changes <- invokeDarcs ["changes"                       ,"--match=hash " ++ patchHash pd                       ,"--repo=" ++ patchRepo pd+                      ,"-a"                       ,"-s"]   menc <- asks confCharset   met <- asks confEmailTemplate

darcs-monitor.cabal view

@@ -1,6 +1,6 @@ Cabal-Version: >= 1.2 Name: darcs-monitor-Version: 0.4.0+Version: 0.4.1 License: GPL License-File: GPL.txt Copyright:

darcs-monitor.hs view

@@ -192,7 +192,7 @@                                 _   -> repo' ++ "/"   liftIO $ createDirectoryIfMissing True (repo++dir)   seenPatches <- readSeenPatches repo-  xml <- invokeDarcs ["changes", "--reverse", "--repo="++repo,"--xml-output"]+  xml <- invokeDarcs ["changes", "--reverse", "--repo="++repo,"--xml-output","-a"]   let Document _ _ (Elem "changelog" _ content) _ = xmlParse repo xml    let patches = filter (\c -> case c of CElem _e -> True ; _ -> False) content   spl <- forM patches $ \ (CElem (Elem "patch" attrs content_)) ->