From fdd497138778458955c35a8b579568cefef2657d Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sat, 23 Jul 2011 13:31:35 +0100
Subject: [PATCH] Rename toInt# -> integerToInt for consistency
---
GHC/Integer.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/GHC/Integer.hs b/GHC/Integer.hs
index 7c21dca..61654f0 100644
--- a/GHC/Integer.hs
+++ b/GHC/Integer.hs
@@ -21,7 +21,7 @@
module GHC.Integer (
Integer,
- smallInteger, wordToInteger, integerToWord, toInt#,
+ smallInteger, wordToInteger, integerToWord, integerToInt,
#if WORD_SIZE_IN_BITS < 64
integerToWord64, word64ToInteger,
integerToInt64, int64ToInteger,
@@ -72,8 +72,8 @@ integerToWord (Negative (Some w _)) = 0## `minusWord#` w
-- Must be Naught by the invariant:
integerToWord _ = 0##
-toInt# :: Integer -> Int#
-toInt# i = word2Int# (integerToWord i)
+integerToInt :: Integer -> Int#
+integerToInt i = word2Int# (integerToWord i)
#if WORD_SIZE_IN_BITS == 64
-- Nothing
--
GitLab