diff --git a/pandoc.hs b/pandoc.hs
index 5be2f71e6022..c2d4ca853e4b 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -1167,8 +1167,7 @@ main = do
                     (x:_) -> case parseURI x of
                                 Just u
                                   | uriScheme u `elem` ["http:","https:"] ->
-                                      Just $ show u{ uriPath = "",
-                                                     uriQuery = "",
+                                      Just $ show u{ uriQuery = "",
                                                      uriFragment = "" }
                                 _ -> Nothing