pandoc: Don't strip path off of sourceURL.

We need this information for relative URLs! This should resolve the continuing problem noted in #750.
jgm · Aug 6, 2014 · 482f7f8 · 482f7f8
1 parent 56f2c61
commit 482f7f8
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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