;dev:ui: RegisterScreen: cleanup
This commit is contained in:
parent
1d0ea95b9c
commit
c906788334
@ -354,8 +354,4 @@ rsCenterSelection ui = return ui
|
|||||||
rsEnterTransactionScreen :: AccountName -> [NumberedTransaction] -> NumberedTransaction -> UIState -> EventM Name UIState ()
|
rsEnterTransactionScreen :: AccountName -> [NumberedTransaction] -> NumberedTransaction -> UIState -> EventM Name UIState ()
|
||||||
rsEnterTransactionScreen acct nts nt ui = do
|
rsEnterTransactionScreen acct nts nt ui = do
|
||||||
dbguiEv "rsEnterTransactionScreen"
|
dbguiEv "rsEnterTransactionScreen"
|
||||||
put' $
|
put' $ pushScreen (tsNew acct nts nt) ui
|
||||||
pushScreen (tsNew acct nts nt)
|
|
||||||
ui
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user