starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

refactor the filter parsing

Browse source
This commit is contained in:
Jake Wheat 2014-05-10 10:02:16 +03:00
parent 7f90318647
commit 6c9a291930
2 changed files with 21 additions and 36 deletions
Language/SQL/SimpleSQL
Combinators.lhs

7
Language/SQL/SimpleSQL/Combinators.lhs
View file

@ -11,8 +11,8 @@
> ,(<??.>)
> ,(<??*>)) where
> import Control.Applicative ((<$>), (<*>), (<**>))
> import Text.Parsec (option,many)
> import Control.Applicative --((<$>), (<*>), (<**>))
> import Text.Parsec --(option,many)
> import Text.Parsec.String (Parser)
a possible issue with the option suffix is that it enforces left
@ -54,4 +54,5 @@ succeeding.
0 to many repeated applications of suffix parser
> (<??*>) :: Parser a -> Parser (a -> a) -> Parser a
> p <??*> q = foldr ($) <$> p <*> (reverse <$> many q)
> p <??*> q = p <**> chainl q (pure (flip (.))) id
> -- foldr ($) <$> p <*> (reverse <$> many q)