diff options
author | joe <joe@jerkface.net> | 2016-08-20 03:59:31 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2016-08-20 03:59:31 -0400 |
commit | 119f0e5fede64007be968bb038f562099a87267f (patch) | |
tree | ed437347d4f9e84cc4004fa457b0f901bfcd50b7 /src/Data/ByteString/Base32 | |
parent | 3a6fe39aa734fd053baababdc8afa413999c8cd1 (diff) |
Diffstat (limited to 'src/Data/ByteString/Base32')
-rw-r--r-- | src/Data/ByteString/Base32/Internal.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Data/ByteString/Base32/Internal.hs b/src/Data/ByteString/Base32/Internal.hs index aa7c5b3..31f6e30 100644 --- a/src/Data/ByteString/Base32/Internal.hs +++ b/src/Data/ByteString/Base32/Internal.hs | |||
@@ -26,7 +26,9 @@ module Data.ByteString.Base32.Internal | |||
26 | import Prelude hiding (catch) | 26 | import Prelude hiding (catch) |
27 | #endif | 27 | #endif |
28 | import Control.Exception hiding (mask) | 28 | import Control.Exception hiding (mask) |
29 | #ifdef VERSION_bits_extras | ||
29 | import Data.Bits.Extras | 30 | import Data.Bits.Extras |
31 | #endif | ||
30 | import Data.ByteString as BS | 32 | import Data.ByteString as BS |
31 | import Data.ByteString.Internal as BS | 33 | import Data.ByteString.Internal as BS |
32 | import Data.Word | 34 | import Data.Word |
@@ -46,11 +48,19 @@ type Word5 = Word8 | |||
46 | -- intrinsics | 48 | -- intrinsics |
47 | -- | 49 | -- |
48 | toBE64' :: Word64 -> Word64 | 50 | toBE64' :: Word64 -> Word64 |
51 | #ifdef VERSION_bits_extras | ||
49 | toBE64' = if getSystemEndianness == BigEndian then id else byteSwap | 52 | toBE64' = if getSystemEndianness == BigEndian then id else byteSwap |
53 | #else | ||
54 | toBE64' = toBE64 | ||
55 | #endif | ||
50 | {-# INLINE toBE64' #-} | 56 | {-# INLINE toBE64' #-} |
51 | 57 | ||
52 | toBE32' :: Word32 -> Word32 | 58 | toBE32' :: Word32 -> Word32 |
59 | #ifdef VERSION_bits_extras | ||
53 | toBE32' = if getSystemEndianness == BigEndian then id else byteSwap | 60 | toBE32' = if getSystemEndianness == BigEndian then id else byteSwap |
61 | #else | ||
62 | toBE32' = toBE32 | ||
63 | #endif | ||
54 | {-# INLINE toBE32' #-} | 64 | {-# INLINE toBE32' #-} |
55 | 65 | ||
56 | fromBE32' :: Word32 -> Word32 | 66 | fromBE32' :: Word32 -> Word32 |