[#164] Use only '/' as path separator

Problem: in markdown links, '/' should always be used as path separator ,
e.g. GitHub renderer is not threating link `[x](a\b.md)` as a link
to file in dir `a`
We use OS-dependent file separators everywhere, so
e.g. `canonizeLocalRef "./a.md"="./a.md`"` on Windows

Solution: replace '\' to '/' while constructing repo tree if needed
and then use only '/', preferring functions from `System.FilePath.Posix`.
We can do this, since 'a/b' and `a\b` are equivalent paths on Windows

src/Xrefcheck/Core.hs

@@ -22,7 +22,7 @@ import Data.List qualified as L
 import Data.Reflection (Given)
 import Data.Text qualified as T
 import Fmt (Buildable (..))
-import System.FilePath (isPathSeparator, pathSeparator)
+import System.FilePath.Posix (isPathSeparator)
 import Text.Interpolation.Nyan
 import Time (Second, Time)
 
@@ -314,7 +314,7 @@ canonizeLocalRef :: Text -> Text
 canonizeLocalRef ref =
   maybe ref canonizeLocalRef (T.stripPrefix localPrefix ref)
   where
-    localPrefix = toText ['.', pathSeparator]
+    localPrefix = "./"
 
 -----------------------------------------------------------
 -- Visualisation

src/Xrefcheck/Scan.hs

@@ -36,7 +36,7 @@ import Data.Map qualified as M
 import Data.Reflection (Given)
 import Fmt (Buildable (..))
 import System.Directory (doesDirectoryExist)
-import System.FilePath
+import System.FilePath.Posix
   (dropTrailingPathSeparator, equalFilePath, splitDirectories, takeDirectory, takeExtension, (</>))
 import System.Process (cwd, readCreateProcess, shell)
 import Text.Interpolation.Nyan

src/Xrefcheck/System.hs

@@ -21,10 +21,9 @@ import Data.Coerce (coerce)
 import GHC.IO.Unsafe (unsafePerformIO)
 import System.Directory (canonicalizePath)
 import System.Environment (lookupEnv)
-import System.FilePath (isRelative, (</>))
-import System.FilePath.Glob (CompOptions (errorRecovery))
 import System.FilePath.Glob qualified as Glob
 import Text.Interpolation.Nyan
+import System.FilePath.Posix (isRelative, (</>))
 
 import Xrefcheck.Util (normaliseWithNoTrailing)
 
@@ -89,4 +88,4 @@ instance FromJSON RelGlobPattern where
 
 -- | Glob compilation options we use.
 globCompileOptions :: Glob.CompOptions
-globCompileOptions = Glob.compDefault{errorRecovery = False}
+globCompileOptions = Glob.compDefault{Glob.errorRecovery = False}

src/Xrefcheck/Util.hs

@@ -27,7 +27,7 @@ import Data.Time (UTCTime)
 import Data.Time.Clock (nominalDiffTimeToSeconds)
 import Data.Time.Clock.POSIX (POSIXTime, utcTimeToPOSIXSeconds)
 import Fmt (Builder)
-import System.FilePath (dropTrailingPathSeparator, normalise)
+import System.FilePath.Posix (dropTrailingPathSeparator, normalise)
 import Time (Second, Time (..), sec)
 
 import Xrefcheck.Util.Colorize

src/Xrefcheck/Verify.hs

@@ -57,7 +57,7 @@ import Network.HTTP.Req
   HttpMethod, NoReqBody (..), defaultHttpConfig, ignoreResponse, req, runReq, useURI)
 import Network.HTTP.Types.Header (hRetryAfter)
 import Network.HTTP.Types.Status (Status, statusCode, statusMessage)
-import System.FilePath
+import System.FilePath.Posix
   (equalFilePath, joinPath, makeRelative, normalise, splitDirectories, takeDirectory, (</>))
 import Text.Interpolation.Nyan
 import Text.ParserCombinators.ReadPrec qualified as ReadPrec (lift)