diff --git a/Handler/Avatar.hs b/Handler/Avatar.hs index 2eb8000..b521fb5 100644 --- a/Handler/Avatar.hs +++ b/Handler/Avatar.hs @@ -20,6 +20,7 @@ import Data.Conduit.Binary import qualified Data.Text as T import qualified Data.ByteString as B import qualified Data.ByteString.Lazy as L +import Data.ByteString.Base64 import Graphics.ImageMagick.MagickWand import qualified Crypto.Hash.SHA3 as SHA3 @@ -124,7 +125,7 @@ generateThumb raw = do setImageCompressionQuality w 95 setImageFormat w "png" getImageBlob w - let h = SHA3.hash 16 thumb + let h = encode (SHA3.hash 8 thumb) return (thumb, h) getGetAvatarR :: AvatarId -> Handler TypedContent diff --git a/yammat.cabal b/yammat.cabal index 4e1d04f..3a79c4d 100644 --- a/yammat.cabal +++ b/yammat.cabal @@ -101,6 +101,7 @@ library , conduit-extra , imagemagick , cryptohash + , base64-bytestring executable yammat if flag(library-only)