- case root_element of
- Nothing -> return $ Err "Could not unpickle document in import_generic."
- Just _ -> return $ Info "Heartbeat received."
+ return $ case root_element of
+ Nothing -> ImportFailed "Could not unpickle document in import_generic."
+ Just _ -> ImportSkipped "Heartbeat received. Thump."