summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bench/Main.hs16
-rw-r--r--src/Data/ByteString/Base32.hs2
-rw-r--r--src/Data/ByteString/Base32/Hex.hs2
3 files changed, 10 insertions, 10 deletions
diff --git a/bench/Main.hs b/bench/Main.hs
index 5ecfa5d..6748a95 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -17,10 +17,10 @@ main = defaultMain
17 , bench "base32/decode/regular/5M" $ nf Base32.decode 17 , bench "base32/decode/regular/5M" $ nf Base32.decode
18 $ BS.replicate 5000000 0x41 18 $ BS.replicate 5000000 0x41
19 19
20 , bench "base32/decode/lenient/1M" $ nf Base32.decodeLenient 20-- , bench "base32/decode/lenient/1M" $ nf Base32.decodeLenient
21 $ BS.replicate 1000000 0x41 21-- $ BS.replicate 1000000 0x41
22 , bench "base32/decode/lenient/5M" $ nf Base32.decodeLenient 22-- , bench "base32/decode/lenient/5M" $ nf Base32.decodeLenient
23 $ BS.replicate 5000000 0x41 23-- $ BS.replicate 5000000 0x41
24 24
25 , bench "base32hex/encode/1M" $ nf Base32Hex.encode 25 , bench "base32hex/encode/1M" $ nf Base32Hex.encode
26 $ BS.replicate 1000000 0x8e 26 $ BS.replicate 1000000 0x8e
@@ -32,8 +32,8 @@ main = defaultMain
32 , bench "base32hex/decode/regular/5M" $ nf Base32Hex.decode 32 , bench "base32hex/decode/regular/5M" $ nf Base32Hex.decode
33 $ BS.replicate 5000000 0x41 33 $ BS.replicate 5000000 0x41
34 34
35 , bench "base32hex/decode/lenient/1M" $ nf Base32Hex.decodeLenient 35-- , bench "base32hex/decode/lenient/1M" $ nf Base32Hex.decodeLenient
36 $ BS.replicate 1000000 0x41 36-- $ BS.replicate 1000000 0x41
37 , bench "base32hex/decode/lenient/5M" $ nf Base32Hex.decodeLenient 37-- , bench "base32hex/decode/lenient/5M" $ nf Base32Hex.decodeLenient
38 $ BS.replicate 5000000 0x41 38-- $ BS.replicate 5000000 0x41
39 ] \ No newline at end of file 39 ] \ No newline at end of file
diff --git a/src/Data/ByteString/Base32.hs b/src/Data/ByteString/Base32.hs
index f35210f..8e26536 100644
--- a/src/Data/ByteString/Base32.hs
+++ b/src/Data/ByteString/Base32.hs
@@ -17,7 +17,7 @@ module Data.ByteString.Base32
17 ( Base32 17 ( Base32
18 , encode 18 , encode
19 , decode 19 , decode
20 , decodeLenient 20-- , decodeLenient
21 ) where 21 ) where
22 22
23import Data.ByteString as BS 23import Data.ByteString as BS
diff --git a/src/Data/ByteString/Base32/Hex.hs b/src/Data/ByteString/Base32/Hex.hs
index 24655b7..da66504 100644
--- a/src/Data/ByteString/Base32/Hex.hs
+++ b/src/Data/ByteString/Base32/Hex.hs
@@ -17,7 +17,7 @@ module Data.ByteString.Base32.Hex
17 ( Base32Hex 17 ( Base32Hex
18 , encode 18 , encode
19 , decode 19 , decode
20 , decodeLenient 20-- , decodeLenient
21 ) where 21 ) where
22 22
23import Data.ByteString as BS 23import Data.ByteString as BS