throwsToParser action = case action of
                          Left err  -> fail $ sho
throwsToParser action = case action of
                          Left err  -> fail $ sho
throwsToParser action = case action of
                          Left err  -> fail $ sho