sha1 :: ByteString -> Text
sha1 bytes = pack $ unpack (hash bytes) >>= printf "%02x"
sha1 :: ByteString -> Text
sha1 bytes = pack $ unpack (hash bytes) >>= printf "%02x"
sha1 bytes = pack $ unpack (hash bytes) >>= printf "%02x"