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

cleanup

Browse source
This commit is contained in:
Joey Hess 2012-06-15 22:16:13 -04:00
parent e32dda07ca
commit d91950ecba
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Utility/Lsof.hs
View file

@ -11,11 +11,10 @@ module Utility.Lsof where
import Common import Common
import System.Cmd.Utils
import System.Posix.Types import System.Posix.Types
data LsofOpenMode = OpenReadWrite | OpenReadOnly | OpenWriteOnly | OpenUnknown data LsofOpenMode = OpenReadWrite | OpenReadOnly | OpenWriteOnly | OpenUnknown
deriving (Show) deriving (Show, Eq)
type CmdLine = String type CmdLine = String
@ -46,7 +45,7 @@ parse s = bundle $ go [] $ lines s
bundle = concatMap (\(fs, p) -> map (\(f, m) -> (f, m, p)) fs) bundle = concatMap (\(fs, p) -> map (\(f, m) -> (f, m, p)) fs)
go c [] = c go c [] = c
go c (l@(t:r):ls) go c ((t:r):ls)
| t == 'p' = | t == 'p' =
let (fs, ls') = parsefiles [] ls let (fs, ls') = parsefiles [] ls
in go ((fs, parseprocess r):c) ls' in go ((fs, parseprocess r):c) ls'
@ -74,8 +73,6 @@ parse s = bundle $ go [] $ lines s
parsemode ('u':_) = OpenReadWrite parsemode ('u':_) = OpenReadWrite
parsemode _ = OpenUnknown parsemode _ = OpenUnknown
ls = lines s
splitnull = split "\0" splitnull = split "\0"
parsefail = error $ "failed to parse lsof output: " ++ show s parsefail = error $ "failed to parse lsof output: " ++ show s