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

set fileEncoding on the off chance lsof outputs binary garbage

Browse source
This commit is contained in:
Joey Hess 2013-02-18 17:20:52 -04:00
parent d799ef3182
commit eb0e5be62f
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Utility/Lsof.hs
View file

@ -48,6 +48,7 @@ queryDir path = query ["+d", path]
query :: [String] -> IO [(FilePath, LsofOpenMode, ProcessInfo)] query :: [String] -> IO [(FilePath, LsofOpenMode, ProcessInfo)]
query opts = query opts =
withHandle StdoutHandle (createProcessChecked checkSuccessProcess) p $ \h -> do withHandle StdoutHandle (createProcessChecked checkSuccessProcess) p $ \h -> do
fileEncoding h
parse <$> hGetContentsStrict h parse <$> hGetContentsStrict h
where where
p = proc "lsof" ("-F0can" : opts) p = proc "lsof" ("-F0can" : opts)