x <- await
liftIO $ killThread timeoutThread
+ if pred x
+ then do
liftIO $ do
setSGR [SetColor Foreground Vivid Magenta]
putStrLn $ "<-- " ++ B.unpack (encodeMsg x)
setSGR [Reset]
-
- if pred x
- then return x
+ return x
else empty
-- | Matches if the message is a notification.