Allow for events to do io

2021-11-29 01:02:15 +00:00
parent 8832a73d86
commit 3a605b8156
13 changed files with 127 additions and 142 deletions
@@ -133,7 +133,7 @@ data ScreenLayer
    = OptionScreen
        { _scTitle   :: Universe -> String
        , _scOptions :: [MenuOption]
-        , _scDefaultEff :: Universe -> Maybe Universe -- IO (Maybe Universe)?
+        , _scDefaultEff :: Universe -> IO (Maybe Universe) -- IO (Maybe Universe)?
        , _scOptionFlag :: OptionScreenFlag
        }
    | ColumnsScreen String [(String,String)]