aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2011-03-10 22:47:31 +0000
committerDavid Waern <david.waern@gmail.com>2011-03-10 22:47:31 +0000
commitee33a1648b00075c5bc18feea9785a59daebe8e7 (patch)
treef3fe87bc2b04b4dbf632785eb48b5abb8cbba56f /src/Haddock/Interface/Create.hs
parent034f5cf8ff5c4b8de48f04d9c4c34e1ed21c54a2 (diff)
Fix build with ghc 7.0.1
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
-rw-r--r--src/Haddock/Interface/Create.hs4
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_ ++