X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FPage.hs;h=c1d72119e348c1f7ca02dadd980cd1e440912f1c;hp=9883b576f9be232abb5a715735c5c9109c004d6a;hb=5311fe068286b30d52063ef97cc00f09f65a47f1;hpb=044a917ed3908780479b759ac772e1545616c7fc

diff --git a/Rakka/Page.hs b/Rakka/Page.hs
index 9883b57..c1d7211 100644
--- a/Rakka/Page.hs
+++ b/Rakka/Page.hs
@@ -376,9 +376,9 @@ parseEntity
 parseUpdateInfo :: (ArrowXml a, ArrowChoice a) => a XmlTree UpdateInfo
 parseUpdateInfo 
     = proc tree
-    -> do uInfo   <- getXPathTreesInDoc "/*/updateInfo" -< tree
+    -> do uInfo   <- getXPathTreesInDoc "/page/updateInfo" -< tree
           oldRev  <- (getAttrValue0 "oldRevision" >>> arr read) -< uInfo
-          oldName <- maybeA (getXPathTrees "/move/@from/text()" >>> getText) -< uInfo
+          oldName <- maybeA (getXPathTrees "/updateInfo/move/@from/text()" >>> getText) -< uInfo
           returnA -< UpdateInfo {
                         uiOldRevision = oldRev
                       , uiOldName     = oldName