@@ -748,7 +748,7 @@ ncEffectExit from to reason = do
748748-- [Issue #89]
749749ncEffectGetInfo :: ProcessId -> ProcessId -> NC ()
750750ncEffectGetInfo from pid =
751− let lpid = processLocalId pid
751+ let lpid = processLocalId pid
752752 them = (ProcessIdentifier pid)
753753 in do
754754 node <- ask
@@ -761,8 +761,8 @@ ncEffectGetInfo from pid =
761761 registered <- gets (^. registeredHere)
762762 sendInfo pid
763763 (isLocal node (ProcessIdentifier from))
764− proc node itsLinks itsMons (registeredNames registered)
765−
764+ proc node itsLinks itsMons (registeredNames registered)
765+
766766 where sendInfo :: ProcessId
767767 -> Bool
768768 -> LocalProcess
@@ -773,14 +773,14 @@ ncEffectGetInfo from pid =
773773 -> NC ()
774774 sendInfo d lc lp n l m r = do
775775 qLen <- qLength lp
776− dispatch lc d n ProcessInfo {
776+ dispatch lc d n ProcessInfo {
777777 infoNode = localNodeId n
778778 , infoRegisteredNames = r
779779 , infoMessageQueueLength = qLen
780780 , infoMonitors = m
781− , infoLinks = l
781+ , infoLinks = l
782782 }
783−
783+
784784 dispatch :: Bool
785785 -> ProcessId
786786 -> LocalNode
@@ -793,16 +793,16 @@ ncEffectGetInfo from pid =
793793 (ProcessIdentifier dest)
794794 WithImplicitReconnect
795795 pInfo
796−
796+
797797 -- TODO: make this available to other functions?
798798 qLength :: LocalProcess -> NC (Maybe Int)
799799 qLength lp = do
800− qRef <- liftIO $ deRefWeak (processWeakQ lp)
800+ qRef <- liftIO $ deRefWeak (processWeakQ lp)
801801 case qRef of
802802 Nothing -> return $ Nothing
803803 Just qr -> liftIO $ Mailbox.length qr >>= return . Just
804−
805− registeredNames = Map.foldlWithKey (\ks k v -> if v == pid
804+
805+ registeredNames = Map.foldlWithKey (\ks k v -> if v == pid
806806 then (k:ks)
807807 else ks) []
808808