From b641c9cd2c71321641c3b9bf54c6abd0196a9f56 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Mon, 15 Nov 2010 21:09:50 +0000
Subject: Remove code for ghc < 7

---
 src/Haddock/Lex.x | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'src/Haddock/Lex.x')

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] 
-- 
cgit v1.2.3