From 0463fe8618b04d949a79ace5c347db3999d77ca2 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 10:08:06 +0000
Subject: [PATCH] Wibble && definition
---
GHC/Integer.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/GHC/Integer.lhs b/GHC/Integer.lhs
index 4379066..a3ec0f7 100644
--- a/GHC/Integer.lhs
+++ b/GHC/Integer.lhs
@@ -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#
--
GitLab