From 5757d72035f63e9845e62637d011e8a47b5f56c1 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Fri, 27 Sep 2013 22:12:03 +0400 Subject: Hide lenient decoding. --- bench/Main.hs | 16 ++++++++-------- src/Data/ByteString/Base32.hs | 2 +- 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 , bench "base32/decode/regular/5M" $ nf Base32.decode $ BS.replicate 5000000 0x41 - , bench "base32/decode/lenient/1M" $ nf Base32.decodeLenient - $ BS.replicate 1000000 0x41 - , bench "base32/decode/lenient/5M" $ nf Base32.decodeLenient - $ BS.replicate 5000000 0x41 +-- , bench "base32/decode/lenient/1M" $ nf Base32.decodeLenient +-- $ BS.replicate 1000000 0x41 +-- , bench "base32/decode/lenient/5M" $ nf Base32.decodeLenient +-- $ BS.replicate 5000000 0x41 , bench "base32hex/encode/1M" $ nf Base32Hex.encode $ BS.replicate 1000000 0x8e @@ -32,8 +32,8 @@ main = defaultMain , bench "base32hex/decode/regular/5M" $ nf Base32Hex.decode $ BS.replicate 5000000 0x41 - , bench "base32hex/decode/lenient/1M" $ nf Base32Hex.decodeLenient - $ BS.replicate 1000000 0x41 - , bench "base32hex/decode/lenient/5M" $ nf Base32Hex.decodeLenient - $ BS.replicate 5000000 0x41 +-- , bench "base32hex/decode/lenient/1M" $ nf Base32Hex.decodeLenient +-- $ BS.replicate 1000000 0x41 +-- , bench "base32hex/decode/lenient/5M" $ nf Base32Hex.decodeLenient +-- $ BS.replicate 5000000 0x41 ] \ 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 ( Base32 , encode , decode - , decodeLenient +-- , decodeLenient ) where 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 ( Base32Hex , encode , decode - , decodeLenient +-- , decodeLenient ) where import Data.ByteString as BS -- cgit v1.2.3