Always use filesystem encoding for all file and handle reads and writes.
This is a big scary change. I have convinced myself it should be safe. I hope!
This commit is contained in:
parent
c89a9e6ca5
commit
8484c0c197
48 changed files with 75 additions and 109 deletions
|
@ -47,9 +47,8 @@ queryDir path = query ["+d", path]
|
|||
-}
|
||||
query :: [String] -> IO [(FilePath, LsofOpenMode, ProcessInfo)]
|
||||
query opts =
|
||||
withHandle StdoutHandle (createProcessChecked checkSuccessProcess) p $ \h -> do
|
||||
fileEncoding h
|
||||
parse <$> hGetContentsStrict h
|
||||
withHandle StdoutHandle (createProcessChecked checkSuccessProcess) p $
|
||||
parse <$$> hGetContentsStrict
|
||||
where
|
||||
p = proc "lsof" ("-F0can" : opts)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue