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