summaryrefslogtreecommitdiff
path: root/compiler/hsSyn/HsBinds.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/hsSyn/HsBinds.hs')
-rw-r--r--compiler/hsSyn/HsBinds.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/hsSyn/HsBinds.hs b/compiler/hsSyn/HsBinds.hs
index 421a358669..e04dc89559 100644
--- a/compiler/hsSyn/HsBinds.hs
+++ b/compiler/hsSyn/HsBinds.hs
@@ -63,6 +63,9 @@ Global bindings (where clauses)
-- | Haskell Local Bindings
type HsLocalBinds id = HsLocalBindsLR id id
+-- | Located Haskell local bindings
+type LHsLocalBinds id = Located (HsLocalBinds id)
+
-- | Haskell Local Bindings with separate Left and Right identifier types
--
-- Bindings in a 'let' expression
@@ -82,6 +85,8 @@ data HsLocalBindsLR idL idR
| EmptyLocalBinds
-- ^ Empty Local Bindings
+type LHsLocalBindsLR idL idR = Located (HsLocalBindsLR idL idR)
+
deriving instance (DataId idL, DataId idR)
=> Data (HsLocalBindsLR idL idR)