fix handling of file: URL scheme in downloadOrRead

move up the pattern match to be reachable, closes jgm#5517

src/Text/Pandoc/Class.hs

@@ -572,10 +572,10 @@ downloadOrRead s = do
             Nothing -> openURL s' -- will throw error
     (Nothing, s') ->
        case parseURI s' of  -- requires absolute URI
-            -- We don't want to treat C:/ as a scheme:
-            Just u' | length (uriScheme u') > 2 -> openURL (show u')
             Just u' | uriScheme u' == "file:" ->
                  readLocalFile $ uriPathToPath (uriPath u')
+            -- We don't want to treat C:/ as a scheme:
+            Just u' | length (uriScheme u') > 2 -> openURL (show u')
             _ -> readLocalFile fp -- get from local file system
    where readLocalFile f = do
              resourcePath <- getResourcePath

test/command/5517.md

@@ -0,0 +1,28 @@
+Use epub output to trigger `downloadOrRead` in `Text.Pandoc.Class`
+in order to test `file:` URL-scheme handling.
+
+There are no relative `file:` URLs, so we cannot
+test with an actual file, since we don't know the
+current working directory. Instead, we redirect
+stderr to stdout and check for the correct warning.
+
+```
+% pandoc -M title=test -f native -t epub -o /dev/null 2>&1
+[Para [Image ("",[],[]) [] ("file:/testpath/foo.jpg","")]]
+^D
+[WARNING] Could not fetch resource 'file:/testpath/foo.jpg': PandocIOError "/testpath/foo.jpg" /testpath/foo.jpg: openBinaryFile: does not exist (No such file or directory)
+```
+
+```
+% pandoc -M title=test -f native -t epub -o /dev/null 2>&1
+[Para [Image ("",[],[]) [] ("file:///testpath/foo.jpg","")]]
+^D
+[WARNING] Could not fetch resource 'file:///testpath/foo.jpg': PandocIOError "/testpath/foo.jpg" /testpath/foo.jpg: openBinaryFile: does not exist (No such file or directory)
+```
+
+```
+% pandoc -M title=test -f native -t epub -o /dev/null 2>&1
+[Para [Image ("",[],[]) [] ("file://localhost/testpath/foo.jpg","")]]
+^D
+[WARNING] Could not fetch resource 'file://localhost/testpath/foo.jpg': PandocIOError "/testpath/foo.jpg" /testpath/foo.jpg: openBinaryFile: does not exist (No such file or directory)
+```