14 lines
370 B
Haskell
14 lines
370 B
Haskell
module Dodge.Menu.Option
|
|
where
|
|
import Dodge.Data.Universe
|
|
|
|
slTitleOptionsEff :: String -> [MenuOption] -> (Universe -> Universe) -> ScreenLayer
|
|
slTitleOptionsEff title ops eff =
|
|
OptionScreen
|
|
{ _scTitle = const title
|
|
, _scOptions = ops
|
|
, _scDefaultEff = eff
|
|
, _scOptionFlag = NormalOptions
|
|
, _scOptionsOffset = 0
|
|
}
|