FIX use the fork luke
This commit is contained in:
parent
9e381abfd2
commit
0ba68a457b
|
@ -75,7 +75,7 @@ handle curPIDs MapNotifyEvent { ev_window = w } = do
|
||||||
case pid of
|
case pid of
|
||||||
-- ASSUMPTION windows will only have one PID at one time
|
-- ASSUMPTION windows will only have one PID at one time
|
||||||
Just [p] -> let p' = fromIntegral p
|
Just [p] -> let p' = fromIntegral p
|
||||||
in withUniquePid curPIDs p' $ waitAndKill t p'
|
in void $ forkIO $ withUniquePid curPIDs p' $ waitAndKill t p'
|
||||||
_ -> return ()
|
_ -> return ()
|
||||||
|
|
||||||
handle _ _ = return ()
|
handle _ _ = return ()
|
||||||
|
|
Loading…
Reference in New Issue