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/XMonadLog.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/src/Plugins/XMonadLog.hs b/src/Plugins/XMonadLog.hs
index 1403800..8f63dc9 100644
--- a/src/Plugins/XMonadLog.hs
+++ b/src/Plugins/XMonadLog.hs
@@ -28,9 +28,11 @@ import Codec.Binary.UTF8.String as UTF8
 #endif
 import Foreign.C (CChar)
 import XUtil (nextEvent')
+import Actions (stripActions)
 
-
-data XMonadLog = XMonadLog | XPropertyLog String | NamedXPropertyLog String String
+data XMonadLog = XMonadLog
+               | XPropertyLog String
+               | NamedXPropertyLog String String
     deriving (Read, Show)
 
 instance Exec XMonadLog where
@@ -51,7 +53,7 @@ instance Exec XMonadLog where
 
         let update = do
                         mwp <- getWindowProperty8 d xlog root
-                        maybe (return ()) (cb . decodeCChar) mwp
+                        maybe (return ()) (cb . stripActions. decodeCChar) mwp
 
         update
 
-- 
cgit v1.2.3