- assert (is_in_cache basename);
- match (enc, Lazy.force Http_getter_env.cache_mode) with
- | Enc_normal, Enc_normal | Enc_gzipped, Enc_gzipped ->
- (* resource in cache is already in the required format *)
+ assert (local_resource || is_in_cache basename);
+ let resource_type =
+ if local_resource then
+ resource_type
+ else
+ Lazy.force Http_getter_env.cache_mode
+ in
+ match (enc, resource_type) with
+ | `Normal, `Normal | `Gzipped, `Gzipped ->
+ (* resource (in cache or local) is already in the required format *)