diff options
Diffstat (limited to 'compiler/GHC/HsToCore/Quote.hs')
-rw-r--r-- | compiler/GHC/HsToCore/Quote.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/GHC/HsToCore/Quote.hs b/compiler/GHC/HsToCore/Quote.hs index 13595a8f00..82d65dc6f0 100644 --- a/compiler/GHC/HsToCore/Quote.hs +++ b/compiler/GHC/HsToCore/Quote.hs @@ -993,6 +993,8 @@ rep_sig (L loc (ClassOpSig _ is_deflt nms ty)) | otherwise = mapM (rep_ty_sig sigDName (locA loc) ty) nms rep_sig (L loc (FixSig _ fix_sig)) = rep_fix_d (locA loc) fix_sig rep_sig (L loc (InlineSig _ nm ispec))= rep_inline nm ispec (locA loc) +rep_sig (L loc (SpecRecSig _ nm act)) + = rep_specrec nm act (locA loc) rep_sig (L loc (SpecSig _ nm tys ispec)) = concatMapM (\t -> rep_specialise nm t ispec (locA loc)) tys rep_sig (L loc (SpecInstSig _ ty)) = rep_specialiseInst ty (locA loc) @@ -1097,6 +1099,8 @@ rep_inline nm ispec loc ; return [(loc, pragma)] } +rep_specrec = error "TODO" + rep_specialise :: LocatedN Name -> LHsSigType GhcRn -> InlinePragma -> SrcSpan -> MetaM [(SrcSpan, Core (M TH.Dec))] |