diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-02-15 13:05:39 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-15 13:05:39 -0400 |
| commit | 20c686b596c99cbcd042a4c92442130badc4e4ca (patch) | |
| tree | bcbd4f95628366beb85835e7918f6d444df57ecc /Utility/Lsof.hs | |
| parent | de3a96ef0c626555c0ffd619593b852b725eb993 (diff) | |
avoid warning
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 6e1d2f084..dd2914427 100644 --- a/Utility/Lsof.hs +++ b/Utility/Lsof.hs @@ -109,9 +109,9 @@ parseFormatted s = bundle $ go [] $ lines s {- Parses lsof's default output format. -} parseDefault :: LsofParser -parseDefault = catMaybes . map parse . drop 1 . lines +parseDefault = catMaybes . map parseline . drop 1 . lines where - parse l = case words l of + parseline l = case words l of (command : spid : _user : _fd : _type : _device : _size : _node : rest) -> case readish spid of Nothing -> Nothing |