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

Work towards making world read/showable

Browse Source
This commit is contained in:
justin
2022-07-22 11:16:12 +01:00
parent 6b69fc1684
commit 7fdb70dd1c
22 changed files with 223 additions and 218 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Menu/OptionType.hs
+4 -4
View File
@@ -5,12 +5,12 @@ import Dodge.Menu.PushPop
import Control.Lens
makeBoolOption lns t = Toggle
(return . Just . (config . lns #%~ not))
(\u -> Right (t , show (u ^# config . lns)))
(return . Just . (uvConfig . lns #%~ not))
(\u -> Right (t , show (u ^# uvConfig . lns)))
makeEnumOption lns str sideeff = Toggle
(\u -> Just <$> sideeff (u & config . lns #%~ cycleEnum) )
(\u -> Right (str , show (u ^# config . lns)) )
(\u -> Just <$> sideeff (u & uvConfig . lns #%~ cycleEnum) )
(\u -> Right (str , show (u ^# uvConfig . lns)) )
makeSubmenuOption submenu t = Toggle (pushScreen submenu) (const t)