module CabalGild.Unstable.Extra.FilePath where

import qualified System.FilePath.Posix as Posix
import qualified System.FilePath.Windows as Windows

-- | Converts a 'FilePath' with potential Windows-style separators in it to one
-- with only POSIX-style separators.
toPosixSeparators :: FilePath -> FilePath
toPosixSeparators :: FilePath -> FilePath
toPosixSeparators = [FilePath] -> FilePath
Posix.joinPath ([FilePath] -> FilePath)
-> (FilePath -> [FilePath]) -> FilePath -> FilePath
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FilePath -> [FilePath]
Windows.splitDirectories