cleanup debug noise

1 files changed, 8 insertions, 5 deletions

diff --git a/Presence/LocalPeerCred.hs b/Presence/LocalPeerCred.hs
index ecd77dae..b544af97 100644
--- a/Presence/LocalPeerCred.hs
+++ b/Presence/LocalPeerCred.hs
@@ -11,7 +11,6 @@ import Data.Bits
 import Network.Socket
 import System.Posix.Types
 import Debug.Trace
--- import System.Environment (getArgs)
 
 xs     ?? n | n < 0 =  Nothing
 []     ?? _         =  Nothing
@@ -34,7 +33,8 @@ parseHex bs = L.concat . parseHex' $ bs
 
 getLocalPeerCred' (SockAddrInet portn host) = do
     let port = fromEnum portn
-    trace ("tcp4 "++show(port,host)) $ withFile "/proc/net/tcp"  ReadMode (parseProcNet port host)
+    {- trace ("tcp4 "++show(port,host)) $ -} 
+    withFile "/proc/net/tcp"  ReadMode (parseProcNet port host)
 
 getLocalPeerCred' (SockAddrInet6 portn flow host scope) = do
     let port = fromEnum portn
@@ -76,12 +76,15 @@ parseProcNet port host h = do
                           uid <- listToMaybe ys'
                           let peer = (port,decode addr)
                               user = toEnum (read (unpack uid) ::Int) ::UserID  -- CUid . fromIntegral $ (read (unpack uid)::Int)
-                          return $ trace ("peer:"++show(peer,user)) (peer,user)
+                          return $ {- trace ("peer:"++show(peer,user)) -} (peer,user)
                           )
-                    fmap snd . listToMaybe $ filter ((===(port,host)).fst) rs 
-        trace ("found:"++show u) $ u `seq` return u
+                    fmap snd . listToMaybe $ filter ((==(port,host)).fst) rs 
+        {- trace ("found: "++show u) -} 
+        u `seq` return u
+{-
  where
     a === b = let r= a==b in  trace ("Comparing "++show (a,b)++"-->"++show r) r
+-}
 
 {-
 main = do