diff options
| -rw-r--r-- | src/Haddock/Lex.x | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Lex.x b/src/Haddock/Lex.x index e59b10ea..a92f4591 100644 --- a/src/Haddock/Lex.x +++ b/src/Haddock/Lex.x @@ -184,7 +184,7 @@ ident pos str sc cont dflags = strToHsQNames :: DynFlags -> String -> Maybe [RdrName] strToHsQNames dflags str0 = let buffer = unsafePerformIO (stringToStringBuffer str0) - pstate = mkPState buffer noSrcLoc dflags + pstate = mkPState dflags buffer noSrcLoc result = unP parseIdentifier pstate in case result of POk _ name -> Just [unLoc name] |