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
        }