[commit: haddock] ghc-7.6: Better error messages (401dd83)

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : ghc-7.6

http://hackage.haskell.org/trac/ghc/changeset/401dd8302ddc3c1716762278f2d23fd354e1d1d4

>---------------------------------------------------------------

commit 401dd8302ddc3c1716762278f2d23fd354e1d1d4
Author: Simon Hengel <[email protected]>
Date:   Sat Oct 13 20:46:31 2012 +0200

    Better error messages

>---------------------------------------------------------------

 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 4bdbcb7..358fb96 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 })