diff options
| author | David Waern <david.waern@gmail.com> | 2011-11-25 02:39:26 +0100 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-11-25 02:39:26 +0100 |
| commit | c3278a9d3c17ea0929d39116e431a2839bb845ca (patch) | |
| tree | e1732809a0d7b4e00a1dd3ef6fbb68bda219b26a /src/Haddock/Interface | |
| parent | 7a6b3777157e2a1e63d662b354104229cf773342 (diff) | |
Remove #ifs for older compiler versions.
Diffstat (limited to 'src/Haddock/Interface')
| -rw-r--r-- | src/Haddock/Interface/AttachInstances.hs | 4 | ||||
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 4 |
2 files changed, 0 insertions, 8 deletions
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs index 01d5b0f4..5b7771ec 100644 --- a/src/Haddock/Interface/AttachInstances.hs +++ b/src/Haddock/Interface/AttachInstances.hs @@ -25,11 +25,7 @@ import GHC import Name import InstEnv import Class -#if MIN_VERSION_ghc(7,1,0) import GhcMonad (withSession) -#else -import HscTypes (withSession) -#endif import TysPrim( funTyCon ) import MonadUtils (liftIO) import TcRnDriver (tcRnGetInfo) diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index caaed13c..155cd938 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -275,11 +275,7 @@ 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_ ++ |