From dfd1b0e1f73b3adafb3b78a28d819c510a2f54be Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 16 Apr 2022 14:22:52 +0200 Subject: [PATCH] base64-encode the hashes --- src/Control/Avatar.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Control/Avatar.hs b/src/Control/Avatar.hs index 2f0db4c..d53504e 100644 --- a/src/Control/Avatar.hs +++ b/src/Control/Avatar.hs @@ -10,8 +10,8 @@ import Control.Monad.Trans (liftIO) import Crypto.Hash import qualified Data.ByteString as BS - import Data.ByteString.Builder (byteString) +import Data.ByteString.Base64 import Data.String (fromString) @@ -80,4 +80,4 @@ avatarList = do liftIO $ avatarSelect conn md5 :: BS.ByteString -> BS.ByteString -md5 bs = fromString (show ( hash bs :: Digest MD5)) +md5 bs = encode $ fromString (show ( hash bs :: Digest MD5))