aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Interface/Rename.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs
index 4bdbcb76..358fb964 100644
--- a/src/Haddock/Interface/Rename.hs
+++ b/src/Haddock/Interface/Rename.hs
@@ -273,8 +273,12 @@ renameType t = case t of
HsExplicitListTy a b -> HsExplicitListTy a <$> mapM renameLType b
- _ -> error "renameType"
-
+ HsQuasiQuoteTy _ -> error "renameType: HsQuasiQuoteTy"
+ HsSpliceTy _ _ _ -> error "renameType: HsSpliceTy"
+ HsRecTy _ -> error "renameType: HsRecTy"
+ HsCoreTy _ -> error "renameType: HsCoreTy"
+ HsExplicitTupleTy _ _ -> error "renameType: HsExplicitTupleTy"
+ HsWrapTy _ _ -> error "renameType: HsWrapTy"
renameLTyVarBndrs :: LHsTyVarBndrs Name -> RnM (LHsTyVarBndrs DocName)
renameLTyVarBndrs (HsQTvs { hsq_kvs = _, hsq_tvs = tvs })