diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-02-26 04:21:44 +0100 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-02-26 04:21:44 +0100 |
| commit | 0b80dad888724f0ba8a5cb5bad06bedfc7a69572 (patch) | |
| tree | 81678e060fc387a8eda554d99d07ad5ea7156cb8 /lib | |
| parent | ee3027dcdf3348c0e9eb5f840617b028bfe49b82 (diff) | |
| download | xmonad-conf-0b80dad888724f0ba8a5cb5bad06bedfc7a69572.tar xmonad-conf-0b80dad888724f0ba8a5cb5bad06bedfc7a69572.zip | |
Just some optimizations
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Storage.hs | 6 |
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 |