diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-08-31 16:05:26 +0200 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-08-31 16:09:25 +0200 |
| commit | 737f36823d03a6c9d92f56e3e2433a3961780e13 (patch) | |
| tree | 251c4655db37e898ac10a31ac37735e0cb1bcd9a /libraries/base/Data | |
| parent | a8a969ae7a05e408b29961d0a2ea621a16d73d3e (diff) | |
| download | haskell-737f36823d03a6c9d92f56e3e2433a3961780e13.tar.gz | |
`M-x delete-trailing-whitespace` & `M-x untabify`...
...some files more or less recently touched by me
[ci skip]
Diffstat (limited to 'libraries/base/Data')
| -rw-r--r-- | libraries/base/Data/Bits.hs | 7 | ||||
| -rw-r--r-- | libraries/base/Data/Fixed.hs | 3 |
2 files changed, 4 insertions, 6 deletions
diff --git a/libraries/base/Data/Bits.hs b/libraries/base/Data/Bits.hs index a751176441..532f5d5617 100644 --- a/libraries/base/Data/Bits.hs +++ b/libraries/base/Data/Bits.hs @@ -445,7 +445,7 @@ instance Bits Int where (I# x#) `shiftR` (I# i#) = I# (x# `iShiftRA#` i#) (I# x#) `unsafeShiftR` (I# i#) = I# (x# `uncheckedIShiftRA#` i#) - {-# INLINE rotate #-} -- See Note [Constant folding for rotate] + {-# INLINE rotate #-} -- See Note [Constant folding for rotate] (I# x#) `rotate` (I# i#) = I# ((x# `uncheckedIShiftL#` i'#) `orI#` (x# `uncheckedIShiftRL#` (wsib -# i'#))) where @@ -520,8 +520,8 @@ instance Bits Integer where bitSize _ = error "Data.Bits.bitSize(Integer)" isSigned _ = True -{- Note [Constant folding for rotate] - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +{- Note [Constant folding for rotate] + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ The INLINE on the Int instance of rotate enables it to be constant folded. For example: sumU . mapU (`rotate` 3) . replicateU 10000000 $ (7 :: Int) @@ -544,4 +544,3 @@ own to enable constant folding; for example 'shift': 10000000 -> ww_sOb } -} - diff --git a/libraries/base/Data/Fixed.hs b/libraries/base/Data/Fixed.hs index cadbb61ac1..8e8ea60ebe 100644 --- a/libraries/base/Data/Fixed.hs +++ b/libraries/base/Data/Fixed.hs @@ -8,7 +8,7 @@ -- Module : Data.Fixed -- Copyright : (c) Ashley Yakeley 2005, 2006, 2009 -- License : BSD-style (see the file libraries/base/LICENSE) --- +-- -- Maintainer : Ashley Yakeley <ashley@semantic.org> -- Stability : experimental -- Portability : portable @@ -215,4 +215,3 @@ instance HasResolution E12 where resolution _ = 1000000000000 -- | resolution of 10^-12 = .000000000001 type Pico = Fixed E12 - |