diff options
Diffstat (limited to 'compiler/deSugar/DsMeta.hs')
| -rw-r--r-- | compiler/deSugar/DsMeta.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs index 010af3c833..70bc6908f7 100644 --- a/compiler/deSugar/DsMeta.hs +++ b/compiler/deSugar/DsMeta.hs @@ -909,7 +909,12 @@ repTy (HsExplicitTupleTy _ tys) = do repTy (HsTyLit lit) = do lit' <- repTyLit lit repTLit lit' - +repTy (HsWildCardTy wc) = do + let name = HsSyn.wildCardName wc + putSrcSpanDs (nameSrcSpan name) $ + failWithDs $ text "Unexpected wild card:" <+> + quotes (ppr name) + repTy ty = notHandled "Exotic form of type" (ppr ty) repTyLit :: HsTyLit -> DsM (Core TH.TyLitQ) |