base16

commit fd8077105c2393c499b22daa6eccb4b560811d69
parent 2d3555d06eda78b3aa8abc195df5d62885c0b782
Author: Jared Tobin <jared@jtobin.io>
Date:   Fri, 17 Jan 2025 17:30:08 +0400

lib: it's the output length that matters

Diffstat:
M
lib/Data/ByteString/Base16.hs
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Data/ByteString/Base16.hs b/lib/Data/ByteString/Base16.hs
@@ -43,7 +43,7 @@ expand_w8 b =
 
 encode :: BS.ByteString -> BS.ByteString
 encode bs@(BI.PS _ _ l)
-    | l < 128 = to_strict_small loop
+    | l < 64    = to_strict_small loop
     | otherwise = to_strict loop
   where
     loop