Remove section-wide indentation
This commit is contained in:
@@ -86,17 +86,6 @@ cycleOptions u = fromMaybe u $ do
|
||||
| l + curoff >= n = 0
|
||||
| otherwise = l + curoff
|
||||
|
||||
--colStrToSelItem :: (Color, String) -> SelectionItem (Universe -> Universe)
|
||||
--colStrToSelItem (col, str) =
|
||||
-- SelectionItem
|
||||
-- { _siPictures = [str]
|
||||
-- , _siHeight = 1
|
||||
-- , _siIsSelectable = True
|
||||
-- , _siColor = col
|
||||
-- , _siOffX = 0
|
||||
-- , _siPayload = id
|
||||
-- }
|
||||
|
||||
optionValueOffset :: Universe -> MenuOption -> Int
|
||||
optionValueOffset u mo = case _moString mo u of
|
||||
MODStringOption s _ -> length s
|
||||
|
||||
Reference in New Issue
Block a user