FIX use the fork luke

2020-03-25 16:32:06 -04:00 · 2020-03-25 16:32:06 -04:00 · 0ba68a457b
parent 9e381abfd2
commit 0ba68a457b
1 changed files with 1 additions and 1 deletions
--- 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 ()