We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents fd78a6d + dea4314 commit 3c931edCopy full SHA for 3c931ed
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