From 06cfd96e5597d9eed57de37ffacf46d893938bc1 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 6 Jul 2010 17:27:16 +0000 Subject: Follow mkPState argument order change --- src/Haddock/Lex.x | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Haddock/Lex.x') 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] -- cgit v1.2.3