1 files changed, 9 insertions, 8 deletions

diff --git a/Presence/ConsoleWriter.hs b/Presence/ConsoleWriter.hs
index 986294f4..b80e477a 100644
--- a/Presence/ConsoleWriter.hs
+++ b/Presence/ConsoleWriter.hs
@@ -100,8 +100,8 @@ onLogin cs start = \e -> do
                 $ \tuvar -> do
             tu <- readTVar tuvar
             return (tty,tu)
-            
-    forM_ (Map.elems newborn) $ 
+
+    forM_ (Map.elems newborn) $
         forkIO . start getActive
     -- forM_ (Map.elems dead   ) $ putStrLn . ("gone: "++) . show
 
@@ -297,7 +297,7 @@ writeAllPty cw msg = do
                     && Text.all isDigit (Text.drop 4 k)
     bs <- forM (Map.toList ptys) $ \(tty,utmp) -> do
         deliverTerminalMessage cw ("/dev/" <> tty) utmp msg
-    return $ or bs 
+    return $ or bs
 
 resource :: UtmpRecord -> Text
 resource u =
@@ -341,10 +341,11 @@ newCon log cw activeTTY utmp = do
     statusv <- atomically $ newTVar (Just stanza)
     flgs <- atomically $ newTVar 0
     let client = ClientState { clientResource = r
-                             , clientUser = utmpUser u
-                             , clientPid = Nothing
-                             , clientStatus = statusv
-                             , clientFlags = flgs }
+                             , clientUser     = utmpUser u
+                             , clientProfile  = "."
+                             , clientPid      = Nothing
+                             , clientStatus   = statusv
+                             , clientFlags    = flgs }
     atomically $ do
         modifyTVar (cwClients cw) $ Map.insert r client
         putTMVar (cwPresenceChan cw) (client,stanza)
@@ -359,7 +360,7 @@ newCon log cw activeTTY utmp = do
                 guard (not $ Text.null $ utmpHost tu)
                 return tu
               match mtu = searchstr mtu `Text.isInfixOf` Text.dropWhile (/=':') r
-    jstatus r ttynum tu = 
+    jstatus r ttynum tu =
         if bstatus r ttynum tu
             then Available
             else Away