summaryrefslogtreecommitdiff
path: root/pandoc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-08-06 14:36:46 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-08-06 14:36:46 -0700
commit482f7f8e157b713b5dcf81303844721d827b16de (patch)
treed9129623a74c5e27086fa80885105fcbc6db1dbe /pandoc.hs
parent56f2c61cf2ac5b3855049faee3c079e933122a6e (diff)
pandoc: Don't strip path off of sourceURL.
We need this information for relative URLs! This should resolve the continuing problem noted in #750.
Diffstat (limited to 'pandoc.hs')
-rw-r--r--pandoc.hs3
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