diff options
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 |