17 lines
451 B
Haskell
17 lines
451 B
Haskell
module Dodge.Menu.Loading where
|
|
|
|
import Dodge.Menu.Option
|
|
import Dodge.Data.Universe
|
|
|
|
loadingScreen :: String -> ScreenLayer
|
|
loadingScreen str = OptionScreen
|
|
{ _scTitle = str
|
|
, _scOptions = []
|
|
, _scOffset = 0
|
|
, _scPositionedMenuOption = NoPositionedMenuOption
|
|
, _scOptionFlag = LoadingScreen
|
|
, _scSelectionList = SelectionList [] Nothing 0
|
|
, _scAvailableLines = 0
|
|
, _scListDisplayParams = optionListDisplayParams
|
|
}
|