Skip to content

Commit 6d366b2

Browse files
ttuegelrv-jenkins
andauthored
stringParserToIdParser: Strict FileLocation (#2035)
Co-authored-by: rv-jenkins <[email protected]>
1 parent 2926264 commit 6d366b2

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

kore/src/Kore/Parser/Lexeme.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -267,7 +267,7 @@ sourcePosToFileLocation
267267
-}
268268
stringParserToIdParser :: Parser String -> Parser Id
269269
stringParserToIdParser stringRawParser = do
270-
pos <- sourcePosToFileLocation <$> getSourcePos
270+
!pos <- sourcePosToFileLocation <$> getSourcePos
271271
name <- lexeme stringRawParser
272272
return Id
273273
{ getId = Text.pack name

0 commit comments

Comments
 (0)