@@ -796,7 +796,8 @@ fetchItem sourceURL s =
796796 mime = case takeExtension fp of
797797 ".gz" -> getMimeType $ dropExtension fp
798798 x -> getMimeType x
799− ensureEscaped = escapeURIString isAllowedInURI
799+ ensureEscaped x@(_:':':'\\':_) = x -- likely windows path
800+ ensureEscaped x = escapeURIString isAllowedInURI x
800801
801802-- | Like 'fetchItem', but also looks for items in a 'MediaBag'.
802803fetchItem' :: MediaBag -> Maybe String -> String