pandoc: Don't strip path off of sourceURL.

We need this information for relative URLs!

This should resolve the continuing problem noted in #750.

1 files changed, 1 insertions, 2 deletions

diff --git a/pandoc.hs b/pandoc.hs
index 5be2f71e6..c2d4ca853 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