@@ -569,7 +569,8 @@ downloadOrRead s = do
569 case parseURIReference' s' of
569 case parseURIReference' s' of
570 Just u' -> openURL $ show $ u' `nonStrictRelativeTo` u
570 Just u' -> openURL $ show $ u' `nonStrictRelativeTo` u
571 Nothing -> openURL s' -- will throw error
571 Nothing -> openURL s' -- will throw error
572− (Nothing, s'@('/':'/':_)) -> -- protocol-relative URI
572+ (Nothing, s'@('/':'/':c:_)) | c /= '?' -> -- protocol-relative URI
573+ -- we exclude //? because of //?UNC/ on Windows
573 case parseURIReference' s' of
574 case parseURIReference' s' of
574 Just u' -> openURL $ show $ u' `nonStrictRelativeTo` httpcolon
575 Just u' -> openURL $ show $ u' `nonStrictRelativeTo` httpcolon
575 Nothing -> openURL s' -- will throw error
576 Nothing -> openURL s' -- will throw error