diff options
Diffstat (limited to 'libraries/base/GHC/Bits.hs')
| -rw-r--r-- | libraries/base/GHC/Bits.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/Bits.hs b/libraries/base/GHC/Bits.hs index 012550a60b..637ff3ea86 100644 --- a/libraries/base/GHC/Bits.hs +++ b/libraries/base/GHC/Bits.hs @@ -714,6 +714,6 @@ own to enable constant folding; for example 'shift': -- > i16_to_w16 = \x -> case eta of _ -- > { I16# b1 -> case tagToEnum# (<=# 0 b1) of _ -- > { False -> Nothing --- > ; True -> Just (W16# (narrow16Word# (int2Word# b1))) +-- > ; True -> Just (W16# (WordToWord16# (int2Word# b1))) -- > } -- > } |