mkURICacheFn :: ImageCache -> B.ByteString -> B.ByteString
mkURICacheFn ic url = icCacheFolder ic
                      <> (B8.pack . escapeURIString isUnescapedInURIComponent $ B8.unpack url)
mkURICacheFn :: ImageCache -> B.ByteString -> B.ByteString
mkURICacheFn ic url = icCacheFolder ic
                      <> (B8.pack . escapeURIString isUnescapedInURIComponent $ B8.unpack url)
mkURICacheFn ic url = icCacheFolder ic
                      <> (B8.pack . escapeURIString isUnescapedInURIComponent $ B8.unpack url)