X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FXml.hs;h=e98e4b1c5fc8a5c3251fbafa57182bf0f0eb4cc6;hb=579f3e4c6b01f0e89fa6dc8c41a22330d4cb7b8f;hp=2f68dd09c661de44048f78fe0a45314fe4d38b98;hpb=10e7a7d5c354cdaa47d479f785a76eb6bf49e535;p=dead%2Fhtsn-import.git

diff --git a/src/Xml.hs b/src/Xml.hs
index 2f68dd0..e98e4b1 100644
--- a/src/Xml.hs
+++ b/src/Xml.hs
@@ -106,7 +106,7 @@ pickle_unpickle :: XmlPickler a
 pickle_unpickle root_element filepath = do
   -- We need to check only the root message element since
   -- readDocument produces a bunch of other junk.
-    expected <- runX $ arr_getobj
+    expected <- runX arr_getobj
     actual <- runX $ arr_getobj
                      >>>
                      xpickleVal xpickle