We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent fd78a6d commit dea4314Copy full SHA for dea4314
src/Text/Parsing/Parser/Pos.purs
@@ -27,7 +27,7 @@ initialPos = Position { line: 1, column: 1 }
27
28
-- | Updates a `Position` by adding the columns and lines in `String`.
29
updatePosString :: Position -> String -> Position
30
-updatePosString pos str = foldl updatePosChar pos (split (wrap "") str)
+updatePosString pos' str = foldl updatePosChar pos' (split (wrap "") str)
31
where
32
updatePosChar (Position pos) c = case c of
33
"\n" -> Position { line: pos.line + 1, column: 1 }
0 commit comments