From 85fdac20a36675559802dd215a81f640b91693fe Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 5 Jun 2013 00:23:32 +0200
Subject: Stripping actions in stdin and xprop plugins

---
 src/Plugins/StdinReader.hs | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'src/Plugins/StdinReader.hs')

diff --git a/src/Plugins/StdinReader.hs b/src/Plugins/StdinReader.hs
index fddd0bc..f242f93 100644
--- a/src/Plugins/StdinReader.hs
+++ b/src/Plugins/StdinReader.hs
@@ -20,15 +20,16 @@ import System.Exit
 import System.IO
 import Control.Exception (SomeException(..), handle)
 import Plugins
+import Actions (stripActions)
 
-data StdinReader = StdinReader
-    deriving (Read, Show)
+data StdinReader = StdinReader deriving (Read, Show)
 
 instance Exec StdinReader where
-    start StdinReader cb = do
-        cb =<< handle (\(SomeException e) -> do hPrint stderr e; return "")
-                      (hGetLineSafe stdin)
-        eof <- hIsEOF stdin
-        if eof
-            then exitImmediately ExitSuccess
-            else start StdinReader cb
+  start StdinReader cb = do
+    s <- handle (\(SomeException e) -> do hPrint stderr e; return "")
+                (hGetLineSafe stdin)
+    cb (stripActions s)
+    eof <- hIsEOF stdin
+    if eof
+      then exitImmediately ExitSuccess
+      else start StdinReader cb
-- 
cgit v1.2.3