diff options
| author | David Waern <david.waern@gmail.com> | 2010-11-15 21:09:50 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-11-15 21:09:50 +0000 |
| commit | b641c9cd2c71321641c3b9bf54c6abd0196a9f56 (patch) | |
| tree | d5d10ed95890598486274d142108f1d8577ad73c /src/Haddock/Lex.x | |
| parent | b43e5603b3ffa9ebe17c15a4e9a7461a7bed4cca (diff) | |
Remove code for ghc < 7
Diffstat (limited to 'src/Haddock/Lex.x')
| -rw-r--r-- | src/Haddock/Lex.x | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/Haddock/Lex.x b/src/Haddock/Lex.x index 75d44fff..86f66e2d 100644 --- a/src/Haddock/Lex.x +++ b/src/Haddock/Lex.x @@ -189,11 +189,7 @@ strToHsQNames dflags str0 = #else let buffer = unsafePerformIO (stringToStringBuffer str0) #endif -#if MIN_VERSION_ghc(6,13,0) pstate = mkPState dflags buffer noSrcLoc -#else - pstate = mkPState buffer noSrcLoc dflags -#endif result = unP parseIdentifier pstate in case result of POk _ name -> Just [unLoc name] |