1 files changed, 4 insertions, 3 deletions

diff --git a/Presence/main.hs b/Presence/main.hs
index ed247bca..24d240cd 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -52,7 +52,7 @@ import qualified Text.Show.ByteString as L
 
 
 data UnixSession = UnixSession {
-    localhost :: ByteString,
+    localhost :: Peer, -- ByteString,
     unix_uid :: (IORef (Maybe UserID)),
     unix_resource :: (IORef (Maybe L.ByteString)),
     presence_state :: PresenceState
@@ -145,7 +145,7 @@ update_presence locals_greedy subscribers state getStatus =
 type RefCount = Int
 
 data PresenceState = PresenceState 
-    { hostname :: ByteString
+    { hostname :: Peer -- ByteString
     , currentTTY    :: TVar ByteString
     , activeUsers   :: TVar (Set JID)
     , subscriberMap :: TVar (Map JID (RefCount,TChan Presence))
@@ -200,12 +200,13 @@ instance XMPPConfig UnixConfig where
 
 start :: ByteString -> IO ()
 start host = do
+    let host = LocalHost
     tracked <- newPresenceState host
     let dologin e = track_login host tracked e
         dologin :: t -> IO ()
 
     chan <- atomically $ subscribeToChan (localSubscriber tracked)
-    remotes <- forkIO $ seekRemotePeers (/=host) UnixConfig chan
+    remotes <- forkIO $ seekRemotePeers UnixConfig chan
 
     installHandler sigUSR1 (Catch (dologin (userError "signaled"))) Nothing
     -- installHandler sigTERM (CatchOnce (dologin (userError "term signaled"))) Nothing