fixup! Fix compilation warnings.

facundominguez · facundominguez · commit 1fc83c3d0f49 · 2016-06-09T21:39:55.000-03:00
diff --git a/src/Control/Distributed/Process/Node.hs b/src/Control/Distributed/Process/Node.hs
@@ -321,6 +321,8 @@ startServiceProcesses node = do
     -- process which uses 'send' or other primitives which are traced.
     register "trace.logger" logger
  where
+   fork = forkProcess node
+
    loop = do
      receiveWait
        [ match $ \((time, pid, string) ::(String, ProcessId, String)) -> do
