Now determines username for session.

1 files changed, 4 insertions, 2 deletions

diff --git a/Presence/LocalPeerCred.hs b/Presence/LocalPeerCred.hs
index c58fe288..990975ee 100644
--- a/Presence/LocalPeerCred.hs
+++ b/Presence/LocalPeerCred.hs
@@ -49,9 +49,11 @@ getLocalPeerCred sock = do
     addr <- getPeerName sock
     muid <- getLocalPeerCred' addr
     case muid of
-        Just uid -> return uid
-        Nothing  -> return undefined -- trace "proc failed." $ fmap (CUid . fromIntegral . sndOf3) (getPeerCred sock)
+        Just uid -> return (Just uid)
+        Nothing  -> trace "proc failed." $ fmap (validate . CUid . fromIntegral . sndOf3) (getPeerCred sock)
                      where sndOf3 (pid,uid,gid) = uid
+ where
+    validate uid = Just uid -- TODO
 
 from16 :: Word16 -> Int
 from16 = fromEnum