summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2011-02-26 04:21:44 +0100
committerMatthias Schiffer <mschiffer@universe-factory.net>2011-02-26 04:21:44 +0100
commit0b80dad888724f0ba8a5cb5bad06bedfc7a69572 (patch)
tree81678e060fc387a8eda554d99d07ad5ea7156cb8 /lib
parentee3027dcdf3348c0e9eb5f840617b028bfe49b82 (diff)
downloadxmonad-conf-0b80dad888724f0ba8a5cb5bad06bedfc7a69572.tar
xmonad-conf-0b80dad888724f0ba8a5cb5bad06bedfc7a69572.zip
Just some optimizations
Diffstat (limited to 'lib')
-rw-r--r--lib/Storage.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Storage.hs b/lib/Storage.hs
index 6a8608b..d8fae48 100644
--- a/lib/Storage.hs
+++ b/lib/Storage.hs
@@ -49,10 +49,14 @@ storage :: (LayoutClass l a, StoreData d) => d -> l a -> ModifiedLayout (Storage
storage def = ModifiedLayout $ Storage def
+sendMessage' :: Message a => a -> X ()
+sendMessage' a = W.workspace . W.current <$> gets windowset >>= sendMessageWithNoRefresh a
+
+
getStoreData :: StoreData d => X (Maybe d)
getStoreData = do
ref <- io . newIORef $ Nothing
- broadcastMessage $ GetStoreData ref
+ sendMessage' $ GetStoreData ref
io . readIORef $ ref