Commit c28cd6c8 authored by Steffen Michels's avatar Steffen Michels

Merge branch 'cleanup-parsers' into 'master'

Remove <$ and $> from Text.Parsers.Simple.Core

See merge request !89
parents c71896a1 d7215a3c
Pipeline #8761 passed with stage
in 1 minute and 23 seconds
...@@ -28,8 +28,6 @@ pError :: Error -> Parser t a ...@@ -28,8 +28,6 @@ pError :: Error -> Parser t a
// Convenience parsers // Convenience parsers
(@!) infixr 4 :: (Parser t a) Error -> Parser t a (@!) infixr 4 :: (Parser t a) Error -> Parser t a
(<$) infixl 6 :: a (Parser t b) -> Parser t a
($>) infixl 6 :: (Parser t b) a -> Parser t a
(<<|>) infixr 4 :: (Parser t a) (Parser t a) -> Parser t a (<<|>) infixr 4 :: (Parser t a) (Parser t a) -> Parser t a
(<|>>) infixr 4 :: (Parser t a) (Parser t a) -> Parser t a (<|>>) infixr 4 :: (Parser t a) (Parser t a) -> Parser t a
......
...@@ -87,12 +87,6 @@ pBind pl f = Parser (bind pl) ...@@ -87,12 +87,6 @@ pBind pl f = Parser (bind pl)
] ]
= (rs`, flatten es`) = (rs`, flatten es`)
(<$) infixl 6 :: a (Parser t b) -> Parser t a
(<$) x p = pMap (const x) p
($>) infixl 6 :: (Parser t b) a -> Parser t a
($>) p x = pMap (const x) p
(<<|>) infixr 4 :: (Parser t a) (Parser t a) -> Parser t a (<<|>) infixr 4 :: (Parser t a) (Parser t a) -> Parser t a
(<<|>) pl pr = Parser pbl (<<|>) pl pr = Parser pbl
where where
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment