runDataNode :: ProcessId -> Process ()
runDataNode m =
  serve (initState m) initializeDataNode dataNodeProcess
runDataNode :: ProcessId -> Process ()
runDataNode m =
  serve (initState m) initializeDataNode dataNodeProcess
runDataNode m =
  serve (initState m) initializeDataNode dataNodeProcess