From ee33a1648b00075c5bc18feea9785a59daebe8e7 Mon Sep 17 00:00:00 2001 From: David Waern Date: Thu, 10 Mar 2011 22:47:31 +0000 Subject: Fix build with ghc 7.0.1 --- src/Haddock/Interface/Create.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Haddock/Interface/Create.hs') 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_ ++ -- cgit v1.2.3