darcs-monitor 0.4.1 → 0.4.2

raw patch · 3 files changed

+23/−12 lines, 3 filesdep ~HaXml

Dependency ranges changed: HaXml

Files

• ChangeLog +9/−0
• darcs-monitor.cabal +3/−3
• darcs-monitor.hs +11/−9

@@ -1,3 +1,12 @@+0.4.2 (2011-06-13)++    * Update dependency to HaXml 1.20.++0.4.1 (2011-04-13)++    * Use HaXml 1.20.+    * Enable use with darcs --interactive.+ 0.4.0 (2010-09-08)      * make it possible to use more than one email address as recipient.

@@ -1,6 +1,6 @@-Cabal-Version: >= 1.2+Cabal-Version: >= 1.6 Name: darcs-monitor-Version: 0.4.1+Version: 0.4.2 License: GPL License-File: GPL.txt Copyright:@@ -28,7 +28,7 @@   description: Choose the new smaller, split-up base package.  Executable darcs-monitor-  Build-Depends: mtl, HaXml < 1.14+  Build-Depends: mtl, HaXml == 1.20.*   if flag(splitBase)     Build-Depends: base >=3 && < 5, containers, directory, process   else

@@ -35,6 +35,7 @@ import System.Exit import System.IO import Text.XML.HaXml hiding (when,version,x,tag,cdata)+import Text.XML.HaXml.Posn  import Config import Darcs@@ -194,8 +195,9 @@   seenPatches <- readSeenPatches repo   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_)) -> +  let patches+        = filter (\c -> case c of CElem _e _ -> True ; _ -> False) content+  spl <- forM patches $ \ (CElem (Elem "patch" attrs content_) _) ->        do let author = getAttr "author" attrs              localDate = getAttr "local_date" attrs              hash = getAttr "hash" attrs@@ -249,8 +251,8 @@                                      massage ss           massage [] = id -getElem :: Name -> [Content] -> String-getElem name (CElem (Elem name' _ content) : _rest)+getElem :: Name -> [Content Posn] -> String+getElem name (CElem (Elem name' _ content) _ : _rest)     | name == name'     = getContent content "" getElem name (_ : rest) = getElem name rest getElem name []@@ -259,14 +261,14 @@       ++ show name       ++ ", contents = []" -getContent :: [Content] -> String -> String-getContent (CElem (Elem _ _ content) : rest) = getContent content .+getContent :: [Content Posn] -> String -> String+getContent (CElem (Elem _ _ content) _ : rest) = getContent content .                                                getContent rest-getContent (CString _ cdata : rest) = showString cdata .+getContent (CString _ cdata _ : rest) = showString cdata .                                       getContent rest-getContent (CRef ref : rest) = getRef ref .+getContent (CRef ref _ : rest) = getRef ref .                                getContent rest-getContent (CMisc _ : rest) = getContent rest+getContent (CMisc _ _ : rest) = getContent rest getContent [] = id  getRef :: Reference -> String -> String