diff options
author | 2014-05-02 15:32:49 -0300 | |
---|---|---|
committer | 2014-05-02 15:32:49 -0300 | |
commit | cff2db0f2424dd47a60ce21c0ca42017bb1b709d (patch) | |
tree | b8de4e471e4f77f235a2d4b4fc52b6620c59be4d /Utility/Lsof.hs | |
parent | f11dd1f77292d6a5eee3da9415a99e75c5da4e78 (diff) | |
parent | 10a3d627dcb23035bc68c9912e927288be493d8e (diff) |
Merge branch 'master' into bootstrap3
Conflicts:
debian/changelog
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 63009f723..b0d2bc53c 100644 --- a/Utility/Lsof.hs +++ b/Utility/Lsof.hs @@ -5,7 +5,7 @@ - Licensed under the GNU GPL version 3 or higher. -} -{-# LANGUAGE BangPatterns, CPP #-} +{-# LANGUAGE CPP #-} module Utility.Lsof where @@ -110,7 +110,7 @@ parseFormatted s = bundle $ go [] $ lines s {- Parses lsof's default output format. -} parseDefault :: LsofParser -parseDefault = catMaybes . map parseline . drop 1 . lines +parseDefault = mapMaybe parseline . drop 1 . lines where parseline l = case words l of (command : spid : _user : _fd : _type : _device : _size : _node : rest) -> |