Repository : ssh://darcs.haskell.org//srv/darcs/haddock On branch : type-nats
http://hackage.haskell.org/trac/ghc/changeset/780fdc54b96c40aedb75db4638530c110c07e96f >--------------------------------------------------------------- commit 780fdc54b96c40aedb75db4638530c110c07e96f Author: Iavor S. Diatchki <[email protected]> Date: Mon Mar 19 20:31:27 2012 -0700 Add a missing case for type literals. >--------------------------------------------------------------- src/Haddock/Interface/Rename.hs | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 6034688..0e75fef 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -259,6 +259,8 @@ renameType t = case t of doc' <- renameLDocHsSyn doc return (HsDocTy ty' doc') + HsTyLit x -> return (HsTyLit x) + _ -> error "renameType" _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
