between (char '"') (char '"')
between .$ (char '"')
fromEither :: Either a a -> a fromEither = either id id
fromEither :: Either a a -> a fromEither = either .$ id