diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-07-06 17:27:16 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-07-06 17:27:16 +0000 |
| commit | 06cfd96e5597d9eed57de37ffacf46d893938bc1 (patch) | |
| tree | fb87eb2936db14afc7e450ed49720ed509db174d | |
| parent | f1cfa186ffc6268508adb1e5768eacc1fd22f2d8 (diff) | |
Follow mkPState argument order change
| -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] |