base16 0.1.0.0 → 0.1.1

raw patch · 3 files changed

+8/−8 lines, 3 filesdep ~base

Dependency ranges changed: base

Files

base16.cabal +1/−1
src/Data/ByteString/Base16/Internal/Head.hs +6/−7
test/Base16Tests.hs +1/−0

base16.cabal view

@@ -1,6 +1,6 @@ cabal-version:      2.0 name:               base16-version:            0.1.0.0+version:            0.1.1 synopsis:           RFC 4648-compliant Base16 encodings/decodings description:   RFC 4648-compliant Base16 encodings and decodings.

src/Data/ByteString/Base16/Internal/Head.hs view

@@ -11,16 +11,15 @@  #include "MachDeps.h" -import Data.ByteString (ByteString) import Data.ByteString.Internal import Data.ByteString.Base16.Internal.Tables-#if WORD_SIZE_IN_BITS >= 32-import Data.ByteString.Base16.Internal.W32.Loop-#elif WORD_SIZE_IN_BITS >= 64-import Data.ByteString.Base16.Internal.W64.Loop-#else+-- #if WORD_SIZE_IN_BITS >= 32+-- import Data.ByteString.Base16.Internal.W32.Loop+-- #elif WORD_SIZE_IN_BITS >= 64+-- import Data.ByteString.Base16.Internal.W64.Loop+-- #else import Data.ByteString.Base16.Internal.W16.Loop-#endif+-- #endif import Data.Text (Text)  import Foreign.Ptr

test/Base16Tests.hs view

@@ -83,6 +83,7 @@     compare32 n = testCase ("Testing " ++ show n ++ "-sized bytestrings") $ do       bs <- random n       B16.encodeBase16' bs @=? Mem.convertToBase Mem.Base16 bs+       B16.decodeBase16 (B16.encodeBase16' bs) @=?         first pack (Mem.convertFromBase @ByteString Mem.Base16 (Mem.convertToBase Mem.Base16 bs))