Treat argument as URI only if it has http(s) scheme.

Previously pandoc would treat the c: in some windowns filespecs
as a URI scheme and try to download... Thanks to Peter Wang for
pointing this out.

1 files changed, 4 insertions, 3 deletions

diff --git a/src/pandoc.hs b/src/pandoc.hs
index 082e337f5..4caabdd29 100644
--- a/src/pandoc.hs
+++ b/src/pandoc.hs
@@ -51,7 +51,7 @@ import Text.Pandoc.Biblio
 #endif
 import Control.Monad (when, unless, liftM)
 import Network.HTTP (simpleHTTP, mkRequest, getResponseBody, RequestMethod(..))
-import Network.URI (parseURI, isURI)
+import Network.URI (parseURI, isURI, URI(..))
 import qualified Data.ByteString.Lazy as B
 import Data.ByteString.Lazy.UTF8 (toString, fromString)
 import Codec.Binary.UTF8.String (decodeString, encodeString)
@@ -835,8 +835,9 @@ main = do
       readSources srcs = mapM readSource srcs
       readSource "-" = UTF8.getContents
       readSource src = case parseURI src of
-                            Just u  -> readURI u
-                            Nothing -> UTF8.readFile src
+                            Just u | uriScheme u `elem` ["http:","https:"] ->
+                                       readURI u
+                            _       -> UTF8.readFile src
       readURI uri = simpleHTTP (mkRequest GET uri) >>= getResponseBody >>=
                       return . toString  -- treat all as UTF8