diff options
| author | Erik de Castro Lopo <erik.decastrolopo@ambiata.com> | 2017-03-17 17:47:33 +1100 |
|---|---|---|
| committer | Erik de Castro Lopo <erikd@mega-nerd.com> | 2017-03-17 17:47:33 +1100 |
| commit | bc21ea0ac849916bd444a1d935d44a110b815e00 (patch) | |
| tree | 6a969c714beffc6da51b33767db8b459be94f66a /libraries/base/GHC/Word.hs | |
| parent | 2fd283bf46ed68ce31df56c82563765561957a77 (diff) | |
| download | haskell-bc21ea0ac849916bd444a1d935d44a110b815e00.tar.gz | |
GHC.Word: Move Read instances to GHC.Read
Test Plan: Validate
Reviewers: hvr, austin, bgamari
Reviewed By: hvr
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D3353
Diffstat (limited to 'libraries/base/GHC/Word.hs')
| -rw-r--r-- | libraries/base/GHC/Word.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/libraries/base/GHC/Word.hs b/libraries/base/GHC/Word.hs index d4a5536275..1df9d14693 100644 --- a/libraries/base/GHC/Word.hs +++ b/libraries/base/GHC/Word.hs @@ -51,7 +51,6 @@ import GHC.Base import GHC.Enum import GHC.Num import GHC.Real -import GHC.Read import GHC.Arr import GHC.Show @@ -165,10 +164,6 @@ instance Ix Word8 where inRange (m,n) i = m <= i && i <= n -- | @since 2.01 -instance Read Word8 where - readsPrec p s = [(fromIntegral (x::Int), r) | (x, r) <- readsPrec p s] - --- | @since 2.01 instance Bits Word8 where {-# INLINE shift #-} {-# INLINE bit #-} @@ -353,10 +348,6 @@ instance Ix Word16 where inRange (m,n) i = m <= i && i <= n -- | @since 2.01 -instance Read Word16 where - readsPrec p s = [(fromIntegral (x::Int), r) | (x, r) <- readsPrec p s] - --- | @since 2.01 instance Bits Word16 where {-# INLINE shift #-} {-# INLINE bit #-} @@ -657,14 +648,6 @@ instance Ix Word32 where unsafeIndex (m,_) i = fromIntegral (i - m) inRange (m,n) i = m <= i && i <= n --- | @since 2.01 -instance Read Word32 where -#if WORD_SIZE_IN_BITS < 33 - readsPrec p s = [(fromInteger x, r) | (x, r) <- readsPrec p s] -#else - readsPrec p s = [(fromIntegral (x::Int), r) | (x, r) <- readsPrec p s] -#endif - -- | Reverse order of bytes in 'Word32'. -- -- @since 4.7.0.0 @@ -979,10 +962,6 @@ instance Ix Word64 where unsafeIndex (m,_) i = fromIntegral (i - m) inRange (m,n) i = m <= i && i <= n --- | @since 2.01 -instance Read Word64 where - readsPrec p s = [(fromInteger x, r) | (x, r) <- readsPrec p s] - -- | Reverse order of bytes in 'Word64'. -- -- @since 4.7.0.0 |