summaryrefslogtreecommitdiff
path: root/compiler/hsSyn/HsExpr.hs-boot
diff options
context:
space:
mode:
authorThomas Miedema <thomasmiedema@gmail.com>2015-07-21 13:02:29 +0200
committerBen Gamari <ben@smart-cactus.org>2015-07-21 13:27:44 +0200
commite0a3c441412923bb8b422281cf2e0f8f2841d6c1 (patch)
treebbd1604d33f4f3d1db8dc61ba1f4085c06598312 /compiler/hsSyn/HsExpr.hs-boot
parent9ade087108afe2eec2698b6ce41146df02524810 (diff)
downloadhaskell-e0a3c441412923bb8b422281cf2e0f8f2841d6c1.tar.gz
Delete __GLASGOW_HASKELL__ ifdefs for stage0 < 7.8
Reviewers: austin, goldfire, bgamari Reviewed By: bgamari Subscribers: bgamari, thomie Differential Revision: https://phabricator.haskell.org/D904
Diffstat (limited to 'compiler/hsSyn/HsExpr.hs-boot')
-rw-r--r--compiler/hsSyn/HsExpr.hs-boot12
1 files changed, 0 insertions, 12 deletions
diff --git a/compiler/hsSyn/HsExpr.hs-boot b/compiler/hsSyn/HsExpr.hs-boot
index 4b9f968ebf..eb9d23a9ed 100644
--- a/compiler/hsSyn/HsExpr.hs-boot
+++ b/compiler/hsSyn/HsExpr.hs-boot
@@ -3,9 +3,7 @@
{-# LANGUAGE UndecidableInstances #-} -- Note [Pass sensitive types]
-- in module PlaceHolder
{-# LANGUAGE ConstraintKinds #-}
-#if __GLASGOW_HASKELL__ > 706
{-# LANGUAGE RoleAnnotations #-}
-#endif
module HsExpr where
@@ -15,31 +13,21 @@ import {-# SOURCE #-} HsPat ( LPat )
import PlaceHolder ( DataId )
import Data.Data hiding ( Fixity )
-#if __GLASGOW_HASKELL__ > 706
type role HsExpr nominal
type role HsCmd nominal
type role MatchGroup nominal representational
type role GRHSs nominal representational
type role HsSplice nominal
-#endif
data HsExpr (i :: *)
data HsCmd (i :: *)
data HsSplice (i :: *)
data MatchGroup (a :: *) (body :: *)
data GRHSs (a :: *) (body :: *)
-#if __GLASGOW_HASKELL__ > 706
instance Typeable HsSplice
instance Typeable HsExpr
instance Typeable MatchGroup
instance Typeable GRHSs
-#else
-instance Typeable1 HsSplice
-instance Typeable1 HsExpr
-instance Typeable1 HsCmd
-instance Typeable2 MatchGroup
-instance Typeable2 GRHSs
-#endif
instance (DataId id) => Data (HsSplice id)
instance (DataId id) => Data (HsExpr id)