Merge pull request #67 from purescript-contrib/shadow-fix

Fix shadowed names
purescript-contrib · Aug 8, 2017 · 5bb3e41 · 5bb3e41
2 parents 0be7c39 + 16c52a2
commit 5bb3e41
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Text/Parsing/Parser.purs b/src/Text/Parsing/Parser.purs
@@ -122,8 +122,8 @@ instance monadTransParserT :: MonadTrans (ParserT s) where
 
 -- | Set the consumed flag.
 consume :: forall s m. Monad m => ParserT s m Unit
-consume = modify \(ParseState input position _) ->
-  ParseState input position true
+consume = modify \(ParseState input pos _) ->
+  ParseState input pos true
 
 -- | Returns the current position in the stream.
 position :: forall s m. Monad m => ParserT s m Position
@@ -135,4 +135,4 @@ fail message = failWithPosition message =<< position
 
 -- | Fail with a message and a position.
 failWithPosition :: forall m s a. Monad m => String -> Position -> ParserT s m a
-failWithPosition message position = throwError (ParseError message position)
+failWithPosition message pos = throwError (ParseError message pos)