diff options
author | Joey Hess <joey@kitenet.net> | 2013-05-11 18:23:41 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-05-11 18:23:41 -0400 |
commit | 618af8b6772d25ab27336d240ecddae7ae207561 (patch) | |
tree | 9e48ea32c7cbe11603ab599b5e0616457cd4de4e /Utility/Lsof.hs | |
parent | db56fab07ddd6910b1dc08f4fa242c267c469eb5 (diff) |
clean up from windows porting
Diffstat (limited to 'Utility/Lsof.hs')
-rw-r--r-- | Utility/Lsof.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Lsof.hs b/Utility/Lsof.hs index 31da6781e..6d6b353f2 100644 --- a/Utility/Lsof.hs +++ b/Utility/Lsof.hs @@ -11,9 +11,9 @@ module Utility.Lsof where import Common import Build.SysConfig as SysConfig +import Utility.Env import System.Posix.Types -import System.Posix.Env data LsofOpenMode = OpenReadWrite | OpenReadOnly | OpenWriteOnly | OpenUnknown deriving (Show, Eq) @@ -32,7 +32,7 @@ setupLsof = do when (isAbsolute cmd) $ do path <- getSearchPath let path' = takeDirectory cmd : path - setEnv "PATH" (intercalate [searchPathSeparator] path') True + void $ setEnv "PATH" (intercalate [searchPathSeparator] path') True {- Checks each of the files in a directory to find open files. - Note that this will find hard links to files elsewhere that are open. -} |