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

ui: haddock

Browse Source
This commit is contained in:
Simon Michael 2015-11-06 21:16:44 -08:00
parent 6e8ef47b90
commit a8d9178ee2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,7 +41,10 @@ data Screen =
,sDrawFn :: AppState -> [Widget] ,sDrawFn :: AppState -> [Widget]
} }
| TransactionScreen { | TransactionScreen {
tsState :: ((Integer,Transaction), [(Integer,Transaction)], AccountName) -- ^ the (numbered) transaction we are viewing, a numbered list of transactions we can step through, and the account whose register we entered this screen from tsState :: ((Integer,Transaction), [(Integer,Transaction)], AccountName)
-- ^ the (numbered) transaction we are currently viewing,
-- the list of numbered transactions we can step through,
-- and the account whose register we entered this screen from
,sInitFn :: Day -> AppState -> AppState ,sInitFn :: Day -> AppState -> AppState
,sHandleFn :: AppState -> V.Event -> EventM (Next AppState) ,sHandleFn :: AppState -> V.Event -> EventM (Next AppState)
,sDrawFn :: AppState -> [Widget] ,sDrawFn :: AppState -> [Widget]