diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-27 22:12:03 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-27 22:12:03 +0400 |
| commit | 5757d72035f63e9845e62637d011e8a47b5f56c1 (patch) | |
| tree | bc5342b35adc364c3399bc860a835d3819d37ddf | |
| parent | 2a66664e300c14be939175d978167627372f1545 (diff) | |
Hide lenient decoding.
| -rw-r--r-- | bench/Main.hs | 16 | ||||
| -rw-r--r-- | src/Data/ByteString/Base32.hs | 2 | ||||
| -rw-r--r-- | src/Data/ByteString/Base32/Hex.hs | 2 |
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 | ||
| 23 | import Data.ByteString as BS | 23 | import 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 | ||
| 23 | import Data.ByteString as BS | 23 | import Data.ByteString as BS |