1 files changed, 1 insertions, 1 deletions

diff --git a/Presence/LocalPeerCred.hs b/Presence/LocalPeerCred.hs
index 9054f180..f68557e8 100644
--- a/Presence/LocalPeerCred.hs
+++ b/Presence/LocalPeerCred.hs
@@ -126,7 +126,7 @@ identifyTTY ::
 identifyTTY tty_pids uid inode = do
     pid <- scanProc (show uid) (L.unpack inode)
     -- putStrLn $ "scanProc --> "++show pid
-    flip (maybe (return (Nothing,Nothing))) pid $ \(pid,ttydev) -> do
+    fromMaybe (return (Nothing,Nothing)) $ pid <&> \(pid,ttydev) -> do
     tty <- ttyOrDisplay pid ttydev
     -- putStrLn $ "users = " ++ show tty_pids
     dts <- ttyToXorgs tty_pids