Fix hlint suggestions.

[dead/htsn-import.git] / src / Xml.hs

diff --git a/src/Xml.hs b/src/Xml.hs
index 2f68dd09c661de44048f78fe0a45314fe4d38b98..e98e4b1c5fc8a5c3251fbafa57182bf0f0eb4cc6 100644 (file)
--- 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