@@ -1129,7 +1129,7 @@ ncEffectGetInfo from pid =
1129 case mProc of
1129 case mProc of
1130 Nothing -> dispatch (isLocal node (ProcessIdentifier from))
1130 Nothing -> dispatch (isLocal node (ProcessIdentifier from))
1131 from (ProcessInfoNone DiedUnknownId)
1131 from (ProcessInfoNone DiedUnknownId)
1132− Just proc -> do
1132+ Just proc -> do
1133 itsLinks <- Set.map fst . BiMultiMap.lookupBy1st them <$>
1133 itsLinks <- Set.map fst . BiMultiMap.lookupBy1st them <$>
1134 gets (^. links)
1134 gets (^. links)
1135 itsMons <- BiMultiMap.lookupBy1st them <$> gets (^. monitors)
1135 itsMons <- BiMultiMap.lookupBy1st them <$> gets (^. monitors)
@@ -1143,8 +1143,8 @@ ncEffectGetInfo from pid =
1143 infoNode = (processNodeId pid)
1143 infoNode = (processNodeId pid)
1144 , infoRegisteredNames = reg
1144 , infoRegisteredNames = reg
1145 , infoMessageQueueLength = size
1145 , infoMessageQueueLength = size
1146− , infoMonitors = Set.toList itsMons
1146+ , infoMonitors = Set.toList itsMons
1147− , infoLinks = Set.toList itsLinks
1147+ , infoLinks = Set.toList itsLinks
1149 where dispatch :: (Serializable a)
1149 where dispatch :: (Serializable a)