Work on cursor for lists
This commit is contained in:
+1
-1
@@ -28,7 +28,7 @@ import Text.Read
|
||||
|
||||
splashMenu :: Universe -> ScreenLayer
|
||||
splashMenu u =
|
||||
initializeOptionMenu "AMNESIS" splashMenuOptions NoPositionedMenuOption u
|
||||
initializeOptionMenu "GAME TITLE" splashMenuOptions NoPositionedMenuOption u
|
||||
& scOptionFlag .~ SplashOptions
|
||||
|
||||
splashMenuOptions :: [MenuOption]
|
||||
|
||||
Reference in New Issue
Block a user