From 016dc1e4b7e90c3e83f29a3575aa800f193cc8be Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sun, 27 Feb 2011 16:18:48 +0100 Subject: Allow moving whole processes to other workspaces --- lib/Storage.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lib/Storage.hs') diff --git a/lib/Storage.hs b/lib/Storage.hs index d8fae48..7f68b15 100644 --- a/lib/Storage.hs +++ b/lib/Storage.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE DeriveDataTypeable, ExistentialQuantification, TypeSynonymInstances, MultiParamTypeClasses, ScopedTypeVariables, FlexibleInstances, PatternGuards #-} +{-# LANGUAGE DeriveDataTypeable, ExistentialQuantification, TypeSynonymInstances, MultiParamTypeClasses, FlexibleInstances, PatternGuards #-} module Storage ( StoreData , Storage @@ -16,7 +16,6 @@ import Control.Applicative ((<$>)) import Control.Monad import Data.IORef -import qualified Data.Map as M import Data.Maybe import Data.Typeable @@ -35,11 +34,11 @@ instance (StoreData d) => LayoutModifier (Storage d) a where modifierDescription _ = "Storage" handleMess (Storage d) m - | Just (GetStoreData ref :: StorageMessage d) <- fromMessage m = do + | Just (GetStoreData ref) <- fromMessage m = do io $ writeIORef ref $ Just d return $ Nothing - | Just (SetStoreData d' :: StorageMessage d) <- fromMessage m = do + | Just (SetStoreData d') <- fromMessage m = do return $ Just $ Storage d' handleMess _ _ = return Nothing -- cgit v1.2.3