From 6cad3e8c495cb6b6630c6962a5e8c6673d095a2b Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 27 Oct 2010 11:09:44 +0000
Subject: follow changes in the GHC API

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

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

diff --git a/src/Haddock/Lex.x b/src/Haddock/Lex.x
index 4f877fc9..75d44fff 100644
--- a/src/Haddock/Lex.x
+++ b/src/Haddock/Lex.x
@@ -184,7 +184,11 @@ ident pos str sc cont dflags =
 
 strToHsQNames :: DynFlags -> String -> Maybe [RdrName]
 strToHsQNames dflags str0 = 
+#if MIN_VERSION_ghc(7,1,0)
+  let buffer = stringToStringBuffer str0
+#else
   let buffer = unsafePerformIO (stringToStringBuffer str0)
+#endif
 #if MIN_VERSION_ghc(6,13,0)
       pstate = mkPState dflags buffer noSrcLoc
 #else
-- 
cgit v1.2.3