Remove a lot of IO/maybe cruft

2022-10-30 16:11:30 +00:00
parent 624a4c3bcd
commit 219379393e
9 changed files with 85 additions and 93 deletions
@@ -2,7 +2,7 @@ module Dodge.Menu.Option
    where
 import Dodge.Data.Universe

-slTitleOptionsEff :: String -> [MenuOption] -> (Universe -> IO (Maybe Universe)) -> ScreenLayer
+slTitleOptionsEff :: String -> [MenuOption] -> (Universe -> Universe) -> ScreenLayer
 slTitleOptionsEff title ops eff =
    OptionScreen
        { _scTitle = const title