From 7e6271f8ef282a80e56c5ae6e58a33d5d255a6f5 Mon Sep 17 00:00:00 2001
From: Isaac Dupree <id@isaac.cedarswampstudios.org>
Date: Tue, 18 Aug 2009 20:24:38 +0000
Subject: Fix GHC 6.11 build in Haddock.Convert
---
src/Haddock/Convert.hs | 3 +++
1 file changed, 3 insertions(+)
(limited to 'src/Haddock')
diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index 958667a0..b5fc2b9d 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -186,6 +186,9 @@ synifyDataCon use_gadt_syntax dc = noLoc $
-- finally we get synifyDataCon's result!
in ConDecl name Implicit{-we don't know nor care-}
qvars ctx tys res_ty Nothing
+#if __GLASGOW_HASKELL__ >= 611
+ False --we don't want any "deprecated GADT syntax" warnings!
+#endif
synifyName :: NamedThing n => n -> Located Name
synifyName n = noLoc (getName n)
--
cgit v1.2.3