mighttpd2 3.1.1 → 3.1.2
raw patch · 2 files changed
+7/−9 lines, 2 filesdep −process-conduit
Dependencies removed: process-conduit
Files
- Program/Mighty/Process.hs +6/−7
- mighttpd2.cabal +1/−2
Program/Mighty/Process.hs view
@@ -38,14 +38,13 @@ ---------------------------------------------------------------- runPS :: IO [PsResult]-runPS = runResourceT $- sourceCmd "ps -ef"- $= CB.lines- $= CL.map BS.words- $= CL.map toPsResult- $= CL.filter mighty- $$ CL.consume+runPS = snd <$> runResourceT (sourceCmdWithConsumer "ps -ef" consumer) where+ consumer = CB.lines+ $= CL.map BS.words+ $= CL.map toPsResult+ $= CL.filter mighty+ $= CL.consume commandName = last . split '/' . command mighty ps = "mighty" `BS.isInfixOf` name && not ("mightyctl" `BS.isInfixOf` name)
mighttpd2.cabal view
@@ -1,5 +1,5 @@ Name: mighttpd2-Version: 3.1.1+Version: 3.1.2 Author: Kazu Yamamoto <kazu@iij.ad.jp> Maintainer: Kazu Yamamoto <kazu@iij.ad.jp> License: BSD3@@ -51,7 +51,6 @@ , io-choice , network , parsec >= 3- , process-conduit , resourcet , unix , unix-time