Merge pull request #74 from BirdseyeSoftware/development

hyperthunk · hyperthunk · commit 40974b6912fd · 2014-03-17T17:37:04.000Z
Add missing monitor on CreateHandle variant of ChildStart in Supervisor. Thanks Tavis Rudd!
diff --git a/src/Control/Distributed/Process/Platform/Supervisor.hs b/src/Control/Distributed/Process/Platform/Supervisor.hs
@@ -1588,6 +1588,7 @@ tryStartChild ChildSpec{..} =
       super <- getSelfPid
       (pid, msg) <- proc super
       maybeRegister regName pid
+      void $ monitor pid
       return $ ChildRunningExtra pid msg
 
     wrapRestarterProcess :: Maybe RegisteredName
