From eacdee41caa44c2c6a69ed94c466fa1ef2e87c72 Mon Sep 17 00:00:00 2001 From: Phil de Joux Date: Tue, 17 Dec 2024 11:41:49 -0500 Subject: [PATCH] Use isPathSeparator predicate --- .../src/Distribution/Solver/Types/ProjectConfigPath.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cabal-install-solver/src/Distribution/Solver/Types/ProjectConfigPath.hs b/cabal-install-solver/src/Distribution/Solver/Types/ProjectConfigPath.hs index 94eeff6d23d..65fcfe0691e 100644 --- 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