Hashing!

Shorthash.hs

module Shorthash where

import Data.Digest.Pure.MD5 (md5)
import qualified Data.ByteString.Base64 as B64

import qualified Data.Serialize as B

import qualified Data.Text.Lazy as L
import qualified Data.Text.Lazy.Encoding as T
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy.Char8 as C

shorthash = L.dropWhileEnd (=='=') . T.decodeUtf8 . C.fromStrict . B64.encode . BS.drop 12 . B.encode . md5 . T.encodeUtf8