From b8231a8eca63e887247c8070f59b8d9e6cbd669c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 8 May 2018 11:31:00 -0700
Subject: Fixed bug in uriPathToPath for Windows.

---
 src/Text/Pandoc/Shared.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 82ac32980..26b01bc90 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -644,7 +644,7 @@ uriPathToPath path =
 #ifdef _WINDOWS
   case path of
     '/':ps -> ps
-    _      -> p
+    ps     -> ps
 #else
   path
 #endif
-- 
cgit v1.2.3