base58

commit fda565602cfdf4a31ae588966855e9f9d825e35d
parent e994e9357d42ba63597f13cbd2cb4b1ffde4aa2b
Author: Jared Tobin <jared@jtobin.io>
Date:   Tue, 10 Jun 2025 17:55:14 +0400

lib: formatting nits

Diffstat:
M
lib/Data/ByteString/Base58.hs
 | 
14
+++++++-------

1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lib/Data/ByteString/Base58.hs b/lib/Data/ByteString/Base58.hs
@@ -29,13 +29,13 @@ fi = fromIntegral
 -- word8 base58 character to word6 (ish)
 word6 :: Word8 -> Maybe Word8
 word6 c
-  | c >= 49  && c <= 57  = Just $! c - 49 -- 1–9
-  | c >= 65  && c <= 72  = Just $! c - 56 -- A–H
-  | c >= 74  && c <= 78  = Just $! c - 57 -- J–N
-  | c >= 80  && c <= 90  = Just $! c - 58 -- P–Z
-  | c >= 97  && c <= 107 = Just $! c - 64 -- a–k
-  | c >= 109 && c <= 122 = Just $! c - 65 -- m–z
-  | otherwise            = Nothing
+  | c >= 49  && c <= 57  = pure $! c - 49 -- 1–9
+  | c >= 65  && c <= 72  = pure $! c - 56 -- A–H
+  | c >= 74  && c <= 78  = pure $! c - 57 -- J–N
+  | c >= 80  && c <= 90  = pure $! c - 58 -- P–Z
+  | c >= 97  && c <= 107 = pure $! c - 64 -- a–k
+  | c >= 109 && c <= 122 = pure $! c - 65 -- m–z
+  | otherwise = Nothing
 {-# INLINE word6 #-}
 
 -- | Encode a base256 'ByteString' as base58.