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

ui: whitespace

Browse Source
This commit is contained in:
Simon Michael 2019-01-15 06:15:39 -08:00
parent 228fc9eb3c
commit 389eaa4c5d
4 changed files with 28 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hledger-ui/Hledger/UI/ErrorScreen.hs
View File

@ -46,7 +46,8 @@ esInit _ _ _ = error "init function called with wrong screen type, should not ha
esDraw :: UIState -> [Widget Name]
esDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{}}
,aScreen=ErrorScreen{..}
,aMode=mode} =
,aMode=mode
} =
case mode of
Help -> [helpDialog copts, maincontent]
-- Minibuffer e -> [minibuffer e, maincontent]
@ -74,12 +75,12 @@ esDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{}}
esDraw _ = error "draw function called with wrong screen type, should not happen"
esHandle :: UIState -> BrickEvent Name AppEvent -> EventM Name (Next UIState)
esHandle ui@UIState{
aScreen=ErrorScreen{..}
esHandle ui@UIState{aScreen=ErrorScreen{..}
,aopts=UIOpts{cliopts_=copts}
,ajournal=j
,aMode=mode
} ev =
}
ev =
case mode of
Help ->
case ev of

12
hledger-ui/Hledger/UI/TransactionScreen.hs
View File

@ -49,11 +49,12 @@ tsInit _ _ _ = error "init function called with wrong screen type, should not ha
tsDraw :: UIState -> [Widget Name]
tsDraw UIState{aopts=UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
,aScreen=TransactionScreen{
tsTransaction=(i,t)
,aScreen=TransactionScreen{tsTransaction=(i,t)
,tsTransactions=nts
,tsAccount=acct}
,aMode=mode} =
,tsAccount=acct
}
,aMode=mode
} =
case mode of
Help -> [helpDialog copts, maincontent]
-- Minibuffer e -> [minibuffer e, maincontent]
@ -107,7 +108,8 @@ tsDraw _ = error "draw function called with wrong screen type, should not happen
tsHandle :: UIState -> BrickEvent Name AppEvent -> EventM Name (Next UIState)
tsHandle ui@UIState{aScreen=s@TransactionScreen{tsTransaction=(i,t)
,tsTransactions=nts
,tsAccount=acct}
,tsAccount=acct
}
,aopts=UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}
,ajournal=j
,aMode=mode