diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-02-17 19:46:13 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-20 21:22:11 -0500 |
| commit | 466e1ad5d54cb2e8a3b6f16904b873cad882a736 (patch) | |
| tree | 8a63ad350cb42a2aef09e4e0229eb01f82afda41 /compiler/GHC/HsToCore/Quote.hs | |
| parent | 8b76d4574d703ee66f346775d408220fdddb8155 (diff) | |
| download | haskell-466e1ad5d54cb2e8a3b6f16904b873cad882a736.tar.gz | |
Use TTG for HsSplicedT constructor
The constructor HsSplicedT occurs only in the GhcTc pass.
This enforces this fact statically via TTG.
Diffstat (limited to 'compiler/GHC/HsToCore/Quote.hs')
| -rw-r--r-- | compiler/GHC/HsToCore/Quote.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore/Quote.hs b/compiler/GHC/HsToCore/Quote.hs index 970fc82463..07ab2959ba 100644 --- a/compiler/GHC/HsToCore/Quote.hs +++ b/compiler/GHC/HsToCore/Quote.hs @@ -1389,7 +1389,6 @@ repSplice (HsTypedSplice _ _ n _) = rep_splice n repSplice (HsUntypedSplice _ _ n _) = rep_splice n repSplice (HsQuasiQuote _ n _ _ _) = rep_splice n repSplice e@(HsSpliced {}) = pprPanic "repSplice" (ppr e) -repSplice e@(HsSplicedT {}) = pprPanic "repSpliceT" (ppr e) repSplice (XSplice nec) = noExtCon nec rep_splice :: Name -> MetaM (Core a) |