Use pathSeparator instead of literal char

haskell · Dec 17, 2024 · 73ec3ba · 73ec3ba
1 parent 8766877
commit 73ec3ba
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/cabal-install-solver/src/Distribution/Solver/Types/ProjectConfigPath.hs b/cabal-install-solver/src/Distribution/Solver/Types/ProjectConfigPath.hs
@@ -95,8 +95,12 @@ instance Ord ProjectConfigPath where
             splitPath = FP.splitPath . normSep where
                 normSep p =
                     if buildOS == Windows
-                        then Windows.joinPath $ Windows.splitDirectories [if c == '/' then '\\' else c| c <- p]
-                        else Posix.joinPath $ Posix.splitDirectories [if c == '\\' then '/' else c| c <- p]
+                        then
+                            Windows.joinPath $ Windows.splitDirectories
+                            [if c == Posix.pathSeparator then Windows.pathSeparator else c| c <- p]
+                        else
+                            Posix.joinPath $ Posix.splitDirectories
+                            [if c == Windows.pathSeparator then Posix.pathSeparator else c| c <- p]
 
             aPaths = splitPath <$> as
             bPaths = splitPath <$> bs