diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2015-12-31 13:47:43 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2015-12-31 22:35:50 +0100 |
| commit | 2f923ce2ab8bad6d01645c735c81bbf1b9ff1e05 (patch) | |
| tree | 8a21936336868ae1bdaf5b10eb8a1d58480a4727 /compiler/hsSyn/HsBinds.hs | |
| parent | 0d20737860c29169d89c1d5ea728f3848cc28564 (diff) | |
| download | haskell-2f923ce2ab8bad6d01645c735c81bbf1b9ff1e05.tar.gz | |
Drop pre-AMP compatibility CPP conditionals
Since GHC 8.1/8.2 only needs to be bootstrap-able by GHC 7.10 and
GHC 8.0 (and GHC 8.2), we can now finally drop all that pre-AMP
compatibility CPP-mess for good!
Reviewers: austin, goldfire, bgamari
Subscribers: goldfire, thomie, erikd
Differential Revision: https://phabricator.haskell.org/D1724
Diffstat (limited to 'compiler/hsSyn/HsBinds.hs')
| -rw-r--r-- | compiler/hsSyn/HsBinds.hs | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/compiler/hsSyn/HsBinds.hs b/compiler/hsSyn/HsBinds.hs index 93dc5a9f10..bc339873fe 100644 --- a/compiler/hsSyn/HsBinds.hs +++ b/compiler/hsSyn/HsBinds.hs @@ -13,7 +13,6 @@ Datatype for: @BindGroup@, @Bind@, @Sig@, @Bind@. {-# LANGUAGE UndecidableInstances #-} -- Note [Pass sensitive types] -- in module PlaceHolder {-# LANGUAGE ConstraintKinds #-} -{-# LANGUAGE CPP #-} {-# LANGUAGE BangPatterns #-} module HsBinds where @@ -44,11 +43,6 @@ import Data.Data hiding ( Fixity ) import Data.List hiding ( foldr ) import Data.Ord import Data.Foldable ( Foldable(..) ) -#if __GLASGOW_HASKELL__ < 709 -import Data.Traversable ( Traversable(..) ) -import Data.Monoid ( mappend ) -import Control.Applicative hiding (empty) -#endif {- ************************************************************************ @@ -1029,8 +1023,6 @@ instance Foldable HsPatSynDetails where foldr1 f (RecordPatSyn args) = Data.List.foldr1 f (map (Data.Foldable.foldr1 f) args) --- TODO: After a few more versions, we should probably use these. -#if __GLASGOW_HASKELL__ >= 709 length (InfixPatSyn _ _) = 2 length (PrefixPatSyn args) = Data.List.length args length (RecordPatSyn args) = Data.List.length args @@ -1042,7 +1034,6 @@ instance Foldable HsPatSynDetails where toList (InfixPatSyn left right) = [left, right] toList (PrefixPatSyn args) = args toList (RecordPatSyn args) = foldMap toList args -#endif instance Traversable HsPatSynDetails where traverse f (InfixPatSyn left right) = InfixPatSyn <$> f left <*> f right |