[temporary] Extend the file not found message

serokell · Jan 24, 2023 · cef3996 · cef3996
1 parent 446b52b
commit cef3996
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/Xrefcheck/Verify.hs b/src/Xrefcheck/Verify.hs
@@ -152,6 +152,13 @@ data ResponseResult
 
 instance Given ColorMode => Buildable VerifyError where
   build = \case
+    LocalFileDoesNotExist file | '\\' `elem` unRelPosixLink file ->
+      [int||
+      File does not exist:
+        #{file}
+        Its reference contains a backslash. Maybe it uses the wrong path separator.
+      |]
+
     LocalFileDoesNotExist file ->
       [int||
       File does not exist: