Skip to content

Commit 7986324

Browse files
committed
Remove redundant import
1 parent 189d685 commit 7986324

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

src/Text/Parsing/StringParser/Combinators.purs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,6 @@ import Data.List (List(..), singleton)
1010
import Data.Foldable (class Foldable, foldl)
1111

1212
import Control.Alt ((<|>))
13-
import Control.Apply ((*>))
1413

1514
import Text.Parsing.StringParser (Parser(..), fail, unParser)
1615

@@ -40,7 +39,7 @@ infixl 3 withError as <?>
4039

4140
-- | Take the fixed point of a parser function. This function is sometimes useful when building recursive parsers.
4241
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
4443

4544
-- | Parse a string between opening and closing markers.
4645
between :: forall a open close. Parser open -> Parser close -> Parser a -> Parser a

0 commit comments

Comments
 (0)