Permalink
Browse files

Support mulitple pids at the same time

This was waaaayyy to easy to implement.
  • Loading branch information...
bneijt committed Jul 29, 2014
1 parent 5079ea7 commit c8e858783dcce5fea554be28a9e4d04089c211ef
Showing with 11 additions and 5 deletions.
  1. +7 −4 after.cabal
  2. +4 −1 src/Main.hs
@@ -17,9 +17,12 @@ extra-source-files: README
cabal-version: >=1.10

executable after
main-is: Main.hs
main-is: Main.hs
-- other-modules:
-- other-extensions:
build-depends: base >=4.7 && <4.8, options ==1.*, directory ==1.2.*
hs-source-dirs: src
default-language: Haskell2010
build-depends: base >=4.7 && <4.8,
options ==1.*,
directory ==1.2.*,
parallel-io ==0.3.*
hs-source-dirs: src
default-language: Haskell2010
@@ -1,5 +1,6 @@
import Control.Applicative
import Options
import Control.Concurrent.ParallelIO.Global (parallel_, stopGlobalPool)

import After (afterPid)

@@ -16,5 +17,7 @@ main :: IO ()
main = runCommand $ \opts args -> do
if optQuiet opts
then return ()
else afterPid (head args)
else do
parallel_ (map afterPid args)
stopGlobalPool

0 comments on commit c8e8587

Please sign in to comment.