From 8cdc2de72ebe8945ce4b9f7fe8890970c34135a1 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Thu, 21 Jun 2018 01:26:58 -0400
Subject: Avoid awkward "flip (maybe ...)" pattern.

---
 Presence/LocalPeerCred.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Presence/LocalPeerCred.hs')

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
-- 
cgit v1.2.3