diff options
| author | David Waern <david.waern@gmail.com> | 2011-11-25 02:39:26 +0100 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-11-25 02:39:26 +0100 |
| commit | c3278a9d3c17ea0929d39116e431a2839bb845ca (patch) | |
| tree | e1732809a0d7b4e00a1dd3ef6fbb68bda219b26a /src/Haddock/Lex.x | |
| parent | 7a6b3777157e2a1e63d662b354104229cf773342 (diff) | |
Remove #ifs for older compiler versions.
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 e41c9461..153f6677 100644 --- a/src/Haddock/Lex.x +++ b/src/Haddock/Lex.x @@ -222,11 +222,7 @@ ident pos str sc cont dflags = strToHsQNames :: DynFlags -> RealSrcLoc -> String -> Maybe [RdrName] strToHsQNames dflags loc str0 = -#if MIN_VERSION_ghc(7,1,0) let buffer = stringToStringBuffer str0 -#else - let buffer = unsafePerformIO (stringToStringBuffer str0) -#endif pstate = mkPState dflags buffer loc result = unP parseIdentifier pstate in case result of |