got configure working after Utility.Path ByteString conversion

Had to split out some modules because getWorkingDirectory needs unix,
which is not a build-dep of configure.

This commit was sponsored by Brock Spratlen on Patreon.
This commit is contained in:
Joey Hess 2020-10-28 14:53:25 -04:00
parent e219aadbab
commit d6e94a6b2e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
10 changed files with 301 additions and 231 deletions

View file

@ -16,6 +16,7 @@ import Utility.FreeDesktop
import Utility.Path
import Utility.Monad
import Utility.Directory
import Utility.FileSystemEncoding
import Config.Files
import Utility.OSX
import Assistant.Install.AutoStart
@ -77,7 +78,7 @@ install command = do
( return ()
, do
programfile <- inDestDir =<< programFile
createDirectoryIfMissing True (parentDir programfile)
createDirectoryIfMissing True (fromRawFilePath (parentDir (toRawFilePath programfile)))
writeFile programfile command
)