diff options
| author | romes <rodrigo.m.mesquita@gmail.com> | 2022-03-19 13:14:54 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-06-01 07:44:44 -0400 |
| commit | 392ce3fca5d33688add52309a05914efa163e6f6 (patch) | |
| tree | ff44e98cc1b7e6027034b97f24c03aa94896f5f0 | |
| parent | a720322f417547f85ae22b1930721e8cab8de281 (diff) | |
| download | haskell-392ce3fca5d33688add52309a05914efa163e6f6.tar.gz | |
Move UntypedSpliceFlavour from L.H.S to GHC.Hs
UntypedSpliceFlavour was only used in the client-specific `GHC.Hs.Expr`
but was defined in the client-independent L.H.S.Expr.
| -rw-r--r-- | compiler/GHC/Hs/Expr.hs | 7 | ||||
| -rw-r--r-- | compiler/Language/Haskell/Syntax/Expr.hs | 7 |
2 files changed, 7 insertions, 7 deletions
diff --git a/compiler/GHC/Hs/Expr.hs b/compiler/GHC/Hs/Expr.hs index 6f57eb5304..274b5dfcb3 100644 --- a/compiler/GHC/Hs/Expr.hs +++ b/compiler/GHC/Hs/Expr.hs @@ -1721,6 +1721,13 @@ instance Data DelayedSplice where -- See Note [Pending Splices] type SplicePointName = Name +data UntypedSpliceFlavour + = UntypedExpSplice + | UntypedPatSplice + | UntypedTypeSplice + | UntypedDeclSplice + deriving Data + -- | Pending Renamer Splice data PendingRnSplice = PendingRnSplice UntypedSpliceFlavour SplicePointName (LHsExpr GhcRn) diff --git a/compiler/Language/Haskell/Syntax/Expr.hs b/compiler/Language/Haskell/Syntax/Expr.hs index dde9775dd8..f964c5d3f6 100644 --- a/compiler/Language/Haskell/Syntax/Expr.hs +++ b/compiler/Language/Haskell/Syntax/Expr.hs @@ -1624,13 +1624,6 @@ data HsSplicedThing id | HsSplicedPat (Pat id) -- ^ Haskell Spliced Pattern -data UntypedSpliceFlavour - = UntypedExpSplice - | UntypedPatSplice - | UntypedTypeSplice - | UntypedDeclSplice - deriving Data - -- | Haskell (Untyped) Quote = Expr + Pat + Type + Var data HsQuote p = ExpBr (XExpBr p) (LHsExpr p) -- [| expr |] |