Appease case analysis checker

haskell-distributed · Mar 25, 2024 · b242a95 · b242a95
1 parent 68a1461
commit b242a95
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/Control/Distributed/Process/Backend/SimpleLocalnet.hs b/src/Control/Distributed/Process/Backend/SimpleLocalnet.hs
@@ -360,9 +360,14 @@ findSlaves backend = do
    -- Wait for the replies
    catMaybes <$> replicateM (length nodes) (
      receiveWait
-       [ match (\(WhereIsReply "slaveController" mPid) -> return mPid)
+       [ match handleWhereIsReply
        , match (\(NodeMonitorNotification {}) -> return Nothing)
        ])
+  where
+    handleWhereIsReply :: WhereIsReply -> Process (Maybe ProcessId)
+    handleWhereIsReply (WhereIsReply name mPid)
+      | name == "slaveController" = return mPid
+      | otherwise                 = return Nothing
 
 -- | Terminate all slaves
 terminateAllSlaves :: Backend -> Process ()