diff options
| author | David Waern <david.waern@gmail.com> | 2011-03-10 22:47:31 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-03-10 22:47:31 +0000 |
| commit | ee33a1648b00075c5bc18feea9785a59daebe8e7 (patch) | |
| tree | f3fe87bc2b04b4dbf632785eb48b5abb8cbba56f | |
| parent | 034f5cf8ff5c4b8de48f04d9c4c34e1ed21c54a2 (diff) | |
Fix build with ghc 7.0.1
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index 1eb2524a..4162b2a2 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -279,7 +279,11 @@ filterOutInstances = filter (\(L _ d, _, _) -> not (isInstD d)) -- bindings from an 'HsGroup'. declsFromGroup :: HsGroup Name -> [Decl] declsFromGroup group_ = +#if MIN_VERSION_ghc(7,0,2) mkDecls (concat . hs_tyclds) TyClD group_ ++ +#else + mkDecls hs_tyclds TyClD group_ ++ +#endif mkDecls hs_derivds DerivD group_ ++ mkDecls hs_defds DefD group_ ++ mkDecls hs_fords ForD group_ ++ |