From 0ba68a457b36fd463ca0853f787f4bf75a4e7da8 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Wed, 25 Mar 2020 16:32:06 -0400 Subject: [PATCH] FIX use the fork luke --- lib/WorkspaceMon.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/WorkspaceMon.hs b/lib/WorkspaceMon.hs index 82e5ae0..8f2f762 100644 --- a/lib/WorkspaceMon.hs +++ b/lib/WorkspaceMon.hs @@ -75,7 +75,7 @@ handle curPIDs MapNotifyEvent { ev_window = w } = do case pid of -- ASSUMPTION windows will only have one PID at one time Just [p] -> let p' = fromIntegral p - in withUniquePid curPIDs p' $ waitAndKill t p' + in void $ forkIO $ withUniquePid curPIDs p' $ waitAndKill t p' _ -> return () handle _ _ = return ()