Fix a dummy filename that I'd forgotten to change.

This commit is contained in:
Adam Sampson 2007-09-17 23:12:23 +00:00
parent a78fb8e917
commit fd2109d548

View File

@ -1990,7 +1990,7 @@ sourceFile
-- | Parse a token stream with the given production.
runTockParser :: [Token] -> OccParser t -> CompState -> PassM t
runTockParser toks prod cs
= do case runParser prod cs "irrelevant filename" toks of
= do case runParser prod cs "" toks of
Left err -> die $ "Parse error: " ++ show err
Right r -> return r