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

avoid warning

Browse source
This commit is contained in:
Joey Hess 2013-02-15 13:05:39 -04:00
parent a3a567da13
commit a988b90826
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/Lsof.hs
View file

@ -109,9 +109,9 @@ parseFormatted s = bundle $ go [] $ lines s
{- Parses lsof's default output format. -} {- Parses lsof's default output format. -}
parseDefault :: LsofParser parseDefault :: LsofParser
parseDefault = catMaybes . map parse . drop 1 . lines parseDefault = catMaybes . map parseline . drop 1 . lines
where where
parse l = case words l of parseline l = case words l of
(command : spid : _user : _fd : _type : _device : _size : _node : rest) -> (command : spid : _user : _fd : _type : _device : _size : _node : rest) ->
case readish spid of case readish spid of
Nothing -> Nothing Nothing -> Nothing