Skip to content
Snippets Groups Projects
Commit bc04c4f5 authored by Simon Marlow's avatar Simon Marlow
Browse files

remove erroneous '::' in NOINLINE pragma

parent 7639141f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
GHC/Integer/Type.hs
+ 1
− 1
View file @ bc04c4f5
...@@ -97,7 +97,7 @@ integerToInt i = word2Int# (integerToWord i) ...@@ -97,7 +97,7 @@ integerToInt i = word2Int# (integerToWord i)
integerToWord64 :: Integer -> Word64# integerToWord64 :: Integer -> Word64#
integerToWord64 i = int64ToWord64# (integerToInt64 i) integerToWord64 i = int64ToWord64# (integerToInt64 i)
{-# NOINLINE word64ToInteger:: #-} {-# NOINLINE word64ToInteger #-}
word64ToInteger:: Word64# -> Integer word64ToInteger:: Word64# -> Integer
word64ToInteger w = if w `eqWord64#` wordToWord64# 0## word64ToInteger w = if w `eqWord64#` wordToWord64# 0##
then Naught then Naught
......
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