nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

base64-encode the hashes

Browse source
This commit is contained in:
nek0 2022-04-16 14:22:52 +02:00
parent aa7d7e55cb
commit dfd1b0e1f7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Control/Avatar.hs
View file

@ -10,8 +10,8 @@ import Control.Monad.Trans (liftIO)
import Crypto.Hash import Crypto.Hash
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import Data.ByteString.Builder (byteString) import Data.ByteString.Builder (byteString)
import Data.ByteString.Base64
import Data.String (fromString) import Data.String (fromString)
@ -80,4 +80,4 @@ avatarList = do
liftIO $ avatarSelect conn liftIO $ avatarSelect conn
md5 :: BS.ByteString -> BS.ByteString md5 :: BS.ByteString -> BS.ByteString
md5 bs = fromString (show ( hash bs :: Digest MD5)) md5 bs = encode $ fromString (show ( hash bs :: Digest MD5))