slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ui: comments

Browse Source
This commit is contained in:
Simon Michael 2016-06-09 09:51:15 -07:00
parent 1ed7819467
commit a6d859c273
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hledger-ui/Hledger/UI/UITypes.hs
View File

@ -68,10 +68,11 @@ data AppState = AppState {
-- | hledger-ui screen types & instances. -- | hledger-ui screen types & instances.
-- Each screen type has generically named initialisation, draw, and event handling functions, -- Each screen type has generically named initialisation, draw, and event handling functions,
-- and zero or more uniquely named screen state fields, which hold the data for a particular -- and zero or more uniquely named screen state fields, which hold the data for a particular
-- instance of this screen. The latter create partial functions, so take care. -- instance of this screen. Note the latter create partial functions, which means that some invalid
-- cases need to be handled, and also that their lenses are traversals, not single-value getters.
data Screen = data Screen =
AccountsScreen { AccountsScreen {
sInit :: Day -> Bool -> AppState -> AppState -- ^ function to update the screen's state sInit :: Day -> Bool -> AppState -> AppState -- ^ function to initialise or update this screen's state
,sDraw :: AppState -> [Widget] -- ^ brick renderer for this screen ,sDraw :: AppState -> [Widget] -- ^ brick renderer for this screen
,sHandle :: AppState -> Vty.Event -> EventM (Next AppState) -- ^ brick event handler for this screen ,sHandle :: AppState -> Vty.Event -> EventM (Next AppState) -- ^ brick event handler for this screen
-- state fields. These ones have lenses: -- state fields. These ones have lenses:
@ -124,7 +125,7 @@ data RegisterScreenItem = RegisterScreenItem {
type NumberedTransaction = (Integer, Transaction) type NumberedTransaction = (Integer, Transaction)
-- needed for lenses -- dummy monoid instance needed for lenses for now since the List fields are not common across constructors
instance Monoid (List a) instance Monoid (List a)
where where
mempty = list "" V.empty 1 mempty = list "" V.empty 1