diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-18 20:24:38 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-18 20:24:38 +0000 |
| commit | 7e6271f8ef282a80e56c5ae6e58a33d5d255a6f5 (patch) | |
| tree | eb239aa2e3aa0f19000bfdec5ce764ba97ae46c8 /src/Haddock | |
| parent | 14fa9c399ec1e85e452ad97d7ca8e3bef32d7a9b (diff) | |
Fix GHC 6.11 build in Haddock.Convert
Diffstat (limited to 'src/Haddock')
| -rw-r--r-- | src/Haddock/Convert.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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) |