Use isPathSeparator predicate

haskell · Dec 17, 2024 · eacdee4 · eacdee4
1 parent 73ec3ba
commit eacdee4
Showing 1 changed file with 2 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
@@ -97,10 +97,10 @@ instance Ord ProjectConfigPath where
                     if buildOS == Windows
                         then
                             Windows.joinPath $ Windows.splitDirectories
-                            [if c == Posix.pathSeparator then Windows.pathSeparator else c| c <- p]
+                            [if Posix.isPathSeparator c then Windows.pathSeparator else c| c <- p]
                         else
                             Posix.joinPath $ Posix.splitDirectories
-                            [if c == Windows.pathSeparator then Posix.pathSeparator else c| c <- p]
+                            [if Windows.isPathSeparator c then Posix.pathSeparator else c| c <- p]
 
             aPaths = splitPath <$> as
             bPaths = splitPath <$> bs