Allow moving whole processes to other workspaces

1 files changed, 3 insertions, 4 deletions

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