Fix 204_InternalToken

gdziadkiewicz · Mar 3, 2022 · ca01da8 · ca01da8
1 parent f51bb81
commit ca01da8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/source/src/BNFC/Backend/FSharp/CFtoFsLex.hs b/source/src/BNFC/Backend/FSharp/CFtoFsLex.hs
@@ -210,7 +210,7 @@ rules cf = mkRule "token" $
                 , "|> Option.defaultValue (TOK_" <> t <+> arg "l)"
                 ]
       where
-      arg l | pos       = text $ "((lexeme_start lexbuf, lexeme_end lexbuf), " ++ l ++ ")"
+      arg l | pos       = text $ "((lexbuf.StartPos.AbsoluteOffset, lexbuf.EndPos.AbsoluteOffset), " ++ l ++ ")"
             | otherwise = text l
 
 -------------------------------------------------------------------