diff options
| author | Simon Hengel <sol@typeful.net> | 2012-10-13 20:46:31 +0200 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2012-10-13 20:46:31 +0200 |
| commit | 401dd8302ddc3c1716762278f2d23fd354e1d1d4 (patch) | |
| tree | 31e0a0fc8cc19842966bec7f96202205e6217485 /src | |
| parent | 2107860036788651c8286f9e1435472b3e799736 (diff) | |
Better error messages
Diffstat (limited to 'src')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 8 |
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 }) |