Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4ada19d8ed90b03c3ced30be8fff3950a884748a >--------------------------------------------------------------- commit 4ada19d8ed90b03c3ced30be8fff3950a884748a Author: Simon Peyton Jones <[email protected]> Date: Thu Jan 12 17:18:52 2012 +0000 Fix if-def-ery for DEBUG >--------------------------------------------------------------- compiler/types/Coercion.lhs | 2 -- 1 files changed, 0 insertions(+), 2 deletions(-) diff --git a/compiler/types/Coercion.lhs b/compiler/types/Coercion.lhs index 2b1656f..735b3e3 100644 --- a/compiler/types/Coercion.lhs +++ b/compiler/types/Coercion.lhs @@ -624,12 +624,10 @@ mkNthCo n co = ASSERT( ok_tc_app _ty1 n && ok_tc_app _ty2 n ) where Pair _ty1 _ty2 = coercionKind co -#ifdef DEBUG ok_tc_app :: Type -> Int -> Bool ok_tc_app ty n = case splitTyConApp_maybe ty of Just (_, tys) -> tys `lengthExceeds` n Nothing -> False -#endif -- | Instantiates a 'Coercion' with a 'Type' argument. mkInstCo :: Coercion -> Type -> Coercion _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
