[commit: base] master: Simplify some CPP (5e2a959)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/5e2a959dbafc2628963ac0aaf0b9b77742b8d6e3

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

commit 5e2a959dbafc2628963ac0aaf0b9b77742b8d6e3
Author: Ian Lynagh <igloo at earth.li>
Date:   Fri Nov 25 22:36:50 2011 +0000

    Simplify some CPP

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

 System/CPUTime.hsc |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/System/CPUTime.hsc b/System/CPUTime.hsc
index 0b56329..e98234f 100644
--- a/System/CPUTime.hsc
+++ b/System/CPUTime.hsc
@@ -112,8 +112,7 @@ getCPUTime = do
 
 type CRUsage = ()
 foreign import ccall unsafe getrusage :: CInt -> Ptr CRUsage -> IO CInt
-#else
-# if defined(HAVE_TIMES)
+#elif defined(HAVE_TIMES)
     allocaBytes (#const sizeof(struct tms)) $ \ p_tms -> do
     _ <- times p_tms
     u_ticks  <- (#peek struct tms,tms_utime) p_tms :: IO CClock
@@ -123,12 +122,11 @@ foreign import ccall unsafe getrusage :: CInt -> Ptr CRUsage -> IO CInt
 
 type CTms = ()
 foreign import ccall unsafe times :: Ptr CTms -> IO CClock
-# else
+#else
     ioException (IOError Nothing UnsupportedOperation 
                          "getCPUTime"
                          "can't get CPU time"
                          Nothing)
-# endif
 #endif
 
 #else /* win32 */