justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Remove a lot of IO/maybe cruft

Browse Source
This commit is contained in:
justin
2022-10-30 16:11:30 +00:00
parent 624a4c3bcd
commit 219379393e
9 changed files with 85 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Data/Universe.hs
+5 -5
View File
@@ -49,7 +49,7 @@ data ScreenLayer
= OptionScreen
{ _scTitle :: Universe -> String
, _scOptions :: [MenuOption]
, _scDefaultEff :: Universe -> IO (Maybe Universe)
, _scDefaultEff :: Universe -> Universe
, _scOptionFlag :: OptionScreenFlag
, _scOptionsOffset :: Int
}
@@ -77,20 +77,20 @@ data MenuOptionDisplay
data MenuOption
= Toggle
{ _moEff :: Universe -> IO (Maybe Universe)
{ _moEff :: Universe -> Universe
, _moString :: Universe -> MenuOptionDisplay
, _moKey :: Scancode
}
| Toggle2
{ _moKey1 :: Scancode
, _moEff1 :: Universe -> IO (Maybe Universe)
, _moEff1 :: Universe -> Universe
, _moKey2 :: Scancode
, _moEff2 :: Universe -> IO (Maybe Universe)
, _moEff2 :: Universe -> Universe
, _moString :: Universe -> MenuOptionDisplay
}
| InvisibleToggle
{ _moKey :: Scancode
, _moEff :: Universe -> IO (Maybe Universe)
, _moEff :: Universe -> Universe
}
data IntID a = IntID Int a