diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-07-21 11:13:24 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-21 11:13:24 -0400 |
| commit | c35f77a72494bcceffbd1911ae2be25ad8af6a14 (patch) | |
| tree | d5efb6d3295e214787715d1bf2ff0f7b97392773 /src/Propellor | |
| parent | a8de302eab9ae9916a67b52ddcae2e4e2df1fe7a (diff) | |
| parent | 2932c2b420a3d059be0faecc2113f19f1171af4d (diff) | |
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor')
| -rw-r--r-- | src/Propellor/Shim.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Propellor/Shim.hs b/src/Propellor/Shim.hs index ecf9f36a..7cdecefd 100644 --- a/src/Propellor/Shim.hs +++ b/src/Propellor/Shim.hs @@ -20,7 +20,7 @@ import System.Posix.Files -- Propellor may be running from an existing shim, in which case it's -- simply reused. setup :: FilePath -> Maybe FilePath -> FilePath -> IO FilePath -setup propellorbin propellorbinpath dest = checkAlreadyShimmed propellorbin $ do +setup propellorbin propellorbinpath dest = checkAlreadyShimmed shim $ do createDirectoryIfMissing True dest libs <- parseLdd <$> readProcess "ldd" [propellorbin] @@ -39,7 +39,6 @@ setup propellorbin propellorbinpath dest = checkAlreadyShimmed propellorbin $ do fromMaybe (error "cannot find gconv directory") $ headMaybe $ filter ("/gconv/" `isInfixOf`) glibclibs let linkerparams = ["--library-path", intercalate ":" libdirs ] - let shim = file propellorbin dest writeFile shim $ unlines [ shebang , "GCONV_PATH=" ++ shellEscape gconvdir @@ -49,6 +48,8 @@ setup propellorbin propellorbinpath dest = checkAlreadyShimmed propellorbin $ do ] modifyFileMode shim (addModes executeModes) return shim + where + shim = file propellorbin dest shebang :: String shebang = "#!/bin/sh" |