parseQuery :: Text.Text -> Either ParseError Query
parseQuery s = parse query "" $ Text.unpack s
parseQuery :: Text.Text -> Either ParseError Query
parseQuery s = parse query "" $ Text.unpack s
parseQuery s = parse query "" $ Text.unpack s