Permalink
Browse files

Event handling, modest restructuring

  • Loading branch information...
1 parent 1ace27d commit 151bb1fbcbd9a32bd6db543d17ebdd10bb50b01f @jutaro jutaro committed Dec 22, 2011
@@ -117,7 +117,7 @@ mySessionExt = [GenS (SessionExtension "dummy" (return 5)
(\ i -> liftIO $ putStrLn ("recovery2 " ++ show (i + 0.1))))]
openDummy :: StateM ()
-openDummy = (getOrBuildDisplay (Left []) True () :: StateM (Maybe DummyPane)) >> return ()
+openDummy = (getOrBuildDisplay Nothing True () :: StateM (Maybe DummyPane)) >> return ()
-- ----------------------------------------------
-- * It's a pane
@@ -99,7 +99,7 @@ openPluginPane (name,bounds) = do
case res of
Right errorStr -> message Error ("Can't find plugin: " ++ errorStr)
Left plugin -> do
- pane :: Maybe PluginPane <- getOrBuildDisplay (Left []) True ()
+ pane :: Maybe PluginPane <- getOrBuildDisplay Nothing True ()
case pane of
Nothing -> return ()
Just p -> do
@@ -111,7 +111,7 @@ openPluginPane' plugin = do
currentConfigPath <- liftM dropFileName getCurrentConfigPath
choices <- liftIO $ getPrereqChoices (dropFileName currentConfigPath)
let choices' = filter (\ (n,_) -> n /= (plName plugin)) choices
- pane :: Maybe PluginPane <- getOrBuildDisplay (Left []) True ()
+ pane :: Maybe PluginPane <- getOrBuildDisplay Nothing True ()
case pane of
Nothing -> return ()
Just p -> do
@@ -78,7 +78,7 @@ myPaneTypes =
openPluginConfigPane :: StateM ()
openPluginConfigPane = do
message Debug "Open plugin config pane"
- mbPane :: Maybe PluginConfigPane <- getOrBuildDisplay (Left []) True ()
+ mbPane :: Maybe PluginConfigPane <- getOrBuildDisplay Nothing True ()
case mbPane of
Nothing -> return ()
Just p -> registerRefresh p >> return ()

0 comments on commit 151bb1f

Please sign in to comment.