Wibble && definition 2008-05-28
authorIan Lynagh <igloo@earth.li>
Sat, 12 Apr 2008 10:08:06 +0000 (10:08 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 12 Apr 2008 10:08:06 +0000 (10:08 +0000)
GHC/Integer.lhs

index 4379066..a3ec0f7 100644 (file)
@@ -142,8 +142,8 @@ int64ToInteger i = if ((i `leInt64#` intToInt64# 0x7FFFFFFF#) &&
                    else case int64ToInteger# i of
                         (# s, d #) -> J# s d
     where -- XXX Move the (&&) definition below us?
-          True && True = True
-          _ && _ = False
+          True  && x = x
+          False && _ = False
 #endif
 
 toInt# :: Integer -> Int#