File tree Expand file tree Collapse file tree 1 file changed +1
-2
lines changed
src/Text/Parsing/StringParser Expand file tree Collapse file tree 1 file changed +1
-2
lines changed Original file line number Diff line number Diff line change @@ -10,7 +10,6 @@ import Data.List (List(..), singleton)
10
10
import Data.Foldable (class Foldable , foldl )
11
11
12
12
import Control.Alt ((<|>))
13
- import Control.Apply ((*>))
14
13
15
14
import Text.Parsing.StringParser (Parser (..), fail , unParser )
16
15
@@ -40,7 +39,7 @@ infixl 3 withError as <?>
40
39
41
40
-- | Take the fixed point of a parser function. This function is sometimes useful when building recursive parsers.
42
41
fix :: forall a . (Parser a -> Parser a ) -> Parser a
43
- fix f = Parser \s -> unParser (f (fix f)) s
42
+ fix f = Parser \s -> unParser (f (fix f)) s
44
43
45
44
-- | Parse a string between opening and closing markers.
46
45
between :: forall a open close . Parser open -> Parser close -> Parser a -> Parser a
You can’t perform that action at this time.
0 commit comments