mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

start converting from System.Directory to System.OsPath

Browse source 
This is the start of a long road, got the first few files to compile
after this large change.

Sponsored-by: mycroft
This commit is contained in:
Joey Hess 2025-01-23 10:22:06 -04:00
parent d46504e51e
commit 05bdce328d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
8 changed files with 185 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Build/TestConfig.hs
View file

@ -8,6 +8,7 @@ import Utility.Path
import Utility.Monad
import Utility.SafeCommand
import Utility.SystemDirectory
import Utility.OsPath
import System.IO
import System.FilePath
@ -106,7 +107,7 @@ findCmdPath k command = do
where
find d =
let f = d </> command
in ifM (doesFileExist f) ( return (Just f), return Nothing )
in ifM (doesFileExist (toOsPath f)) ( return (Just f), return Nothing )
quiet :: String -> String
quiet s = s ++ " >/dev/null 2>&1"