@@ -792,7 +792,7 @@ localExpect = LocalProcess $ do
792792 isE <- readIntChannel ch
793793 len <- readIntChannel ch
794794 lenAgain <- readIntChannel ch
795− when (len /= lenAgain) $ throwIO (userError "Protocol violation")
795+ when (len /= lenAgain) $ throwIO (userError "Internal error: protocol violation (perhaps the remote binary is not installed correctly?)")
796796 msg <- readSizeChannel ch len
797797 if isE /= 0
798798 then error (decode msg)
@@ -939,7 +939,7 @@ instance Binary ServiceProcessMsg where
939939serviceProcess :: Backend -> Process ()
940940serviceProcess _backend = do
941941 us <- getSelfPid
942− register "serviceProcess" us
942+ register "$azureBackendServiceProcess" us
943943 go
944944 where
945945 go = do
@@ -958,7 +958,7 @@ spawnNodeOnVM backend vm port =
958958
959959-- | Terminate a node started with 'spawnNodeOnVM'
960960terminateNode :: NodeId -> Process ()
961−terminateNode nid = nsendRemote nid "serviceProcess" ServiceProcessTerminate
961+terminateNode nid = nsendRemote nid "$azureBackendServiceProcess" ServiceProcessTerminate
962962
963963__remoteTable :: RemoteTable -> RemoteTable
964964__remoteTable = registerStatic "serviceProcess" (toDynamic serviceProcess)