git.iko.soy/distributed-process
on master help sign in
cosmetic
commit9af7f8bc570d9115e79e2949f9a6f865d0c23df0 authorTim Watson <watson.timothy@gmail.com> dateMon 12 Nov 2018, 18:02 (8 years ago) parentab7368c
1 file changed+3−3
src/Control/Distributed/Process/Node.hs+3−3
src/Control/Distributed/Process/Node.hs+3−3
@@ -1129,7 +1129,7 @@ ncEffectGetInfo from pid =
11291129 case mProc of
11301130 Nothing -> dispatch (isLocal node (ProcessIdentifier from))
11311131 from (ProcessInfoNone DiedUnknownId)
1132− Just proc -> do
1132+ Just proc -> do
11331133 itsLinks <- Set.map fst . BiMultiMap.lookupBy1st them <$>
11341134 gets (^. links)
11351135 itsMons <- BiMultiMap.lookupBy1st them <$> gets (^. monitors)
@@ -1143,8 +1143,8 @@ ncEffectGetInfo from pid =
11431143 infoNode = (processNodeId pid)
11441144 , infoRegisteredNames = reg
11451145 , infoMessageQueueLength = size
1146− , infoMonitors = Set.toList itsMons
1147− , infoLinks = Set.toList itsLinks
1146+ , infoMonitors = Set.toList itsMons
1147+ , infoLinks = Set.toList itsLinks
11481148 }
11491149 where dispatch :: (Serializable a)
11501150 => Bool