base64md5 :: L.ByteString -> String
base64md5 lbs =
            base64 $ encode
          $ runConduitPure
          $ Conduit.sourceLazy lbs .| sinkHash
  where
    encode d = ByteArray.convert (d :: Digest MD5)
base64md5 :: L.ByteString -> String
base64md5 lbs =
            base64 $ encode
          $ runConduitPure
          $ Conduit.sourceLazy lbs .| sinkHash
  where
    encode d = ByteArray.convert (d :: Digest MD5)
base64md5 lbs =
            base64 $ encode
          $ runConduitPure
          $ Conduit.sourceLazy lbs .| sinkHash
  where
    encode d = ByteArray.convert (d :: Digest MD5)