finished this stage of the RawFilePath conversion
Finally compiles again, and test suite passes. This commit was sponsored by Brock Spratlen on Patreon.
This commit is contained in:
parent
4bcb4030a5
commit
5a1e73617d
36 changed files with 188 additions and 147 deletions
|
@ -168,11 +168,11 @@ fromRemotePath dir repo = do
|
|||
- This converts such a directory to an absolute path.
|
||||
- Note that it has to run on the system where the remote is.
|
||||
-}
|
||||
repoAbsPath :: FilePath -> IO FilePath
|
||||
repoAbsPath :: RawFilePath -> IO RawFilePath
|
||||
repoAbsPath d = do
|
||||
d' <- expandTilde d
|
||||
d' <- expandTilde (fromRawFilePath d)
|
||||
h <- myHomeDir
|
||||
return $ h </> d'
|
||||
return $ toRawFilePath $ h </> d'
|
||||
|
||||
expandTilde :: FilePath -> IO FilePath
|
||||
#ifdef mingw32_HOST_OS
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue