Skip to content
Snippets Groups Projects
Commit fdeac879 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Rename toInt# -> integerToInt for consistency

parent 3143e51f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 3 deletions
GHC/Integer.hs
+ 3
− 3
View file @ fdeac879
...@@ -23,7 +23,7 @@ ...@@ -23,7 +23,7 @@
module GHC.Integer ( module GHC.Integer (
Integer, Integer,
smallInteger, wordToInteger, integerToWord, toInt#, smallInteger, wordToInteger, integerToWord, integerToInt,
#if WORD_SIZE_IN_BITS < 64 #if WORD_SIZE_IN_BITS < 64
integerToWord64, word64ToInteger, integerToWord64, word64ToInteger,
integerToInt64, int64ToInteger, integerToInt64, int64ToInteger,
...@@ -75,8 +75,8 @@ integerToWord (Negative (Some w _)) = 0## `minusWord#` w ...@@ -75,8 +75,8 @@ integerToWord (Negative (Some w _)) = 0## `minusWord#` w
-- Must be Naught by the invariant: -- Must be Naught by the invariant:
integerToWord _ = 0## integerToWord _ = 0##
toInt# :: Integer -> Int# integerToInt :: Integer -> Int#
toInt# i = word2Int# (integerToWord i) integerToInt i = word2Int# (integerToWord i)
#if WORD_SIZE_IN_BITS == 64 #if WORD_SIZE_IN_BITS == 64
-- Nothing -- Nothing
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment