fixup! Fix compilation warnings.
commit1fc83c3d0f490be83c80703a9813288d83f0bcd7
authorFacundo Domínguez <facundo.dominguez@tweag.io>
dateThu 9 Jun 2016, 21:39 (10 years ago)
parent12dc7f7
src/Control/Distributed/Process/Node.hs+2
@@ -321,6 +321,8 @@ startServiceProcesses node = do
321321 -- process which uses 'send' or other primitives which are traced.
322322 register "trace.logger" logger
323323 where
324+ fork = forkProcess node
325+
324326 loop = do
325327 receiveWait
326328 [ match $ \((time, pid, string) ::(String, ProcessId, String)) -> do