-- Parsing

userParseError :: Either e a -> IO a
userParseError = either (\_ -> throwIO ParseFailure) return
userParseError :: Either e a -> IO a
userParseError = either (\_ -> throwIO ParseFailure) return
userParseError = either (\_ -> throwIO ParseFailure) return