[commit: ghc] master: Fix if-def-ery for DEBUG (4ada19d)

[Simon Peyton Jones]

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 <simonpj at microsoft.com>
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