parse_opts =
[ withPreserveComment no,
withRemoveWS yes,
- withSubstDTDEntities no,
- withValidate no ]
+ withSubstDTDEntities no ]
-- | Given a root element name and a file path, return both the
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