From 65614a85bcf54a58e17a551bd9d94f9643674e7b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 31 Oct 2018 23:37:37 -0700
Subject: Work around HXT limitation for --syntax-definition with windows
drive.
Closes #4836.
---
src/Text/Pandoc/App.hs | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
(limited to 'src')
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index 2fb7c92db..5775f6a6c 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -1101,8 +1101,15 @@ options =
, Option "" ["syntax-definition"]
(ReqArg
- (\arg opt -> return opt{ optSyntaxDefinitions = arg :
- optSyntaxDefinitions opt })
+ (\arg opt -> do
+ let tr c d = map (\x -> if x == c then d else x)
+ let arg' = case arg of -- see #4836
+ -- HXT confuses Windows path with URI
+ _:':':'\\':_ ->
+ "file:///" ++ tr '\\' '/' arg
+ _ -> arg
+ return opt{ optSyntaxDefinitions = arg' :
+ optSyntaxDefinitions opt })
"FILE")
"" -- "Syntax definition (xml) file"
--
cgit v1.2.3