dev: ui: re-export new/update functions from screen modules

2022-09-07 14:17:49 -10:00 · 2022-09-07 14:17:49 -10:00 · 8f8fc7bf75
commit 8f8fc7bf75
parent a5f4d2fd6e
4 changed files with 15 additions and 10 deletions
--- a/hledger-ui/Hledger/UI/AccountsScreen.hs
+++ b/hledger-ui/Hledger/UI/AccountsScreen.hs
@ -6,6 +6,7 @@

 module Hledger.UI.AccountsScreen
 (asNew
+ ,asUpdate
 ,asDraw
 ,asHandle
 ,asSetSelectedAccount
--- a/hledger-ui/Hledger/UI/ErrorScreen.hs
+++ b/hledger-ui/Hledger/UI/ErrorScreen.hs
@ -6,7 +6,9 @@
 {-# OPTIONS_GHC -Wno-incomplete-record-updates #-}

 module Hledger.UI.ErrorScreen
- (esDraw
+ (esNew
+ ,esUpdate
+ ,esDraw
 ,esHandle
 ,uiCheckBalanceAssertions
 ,uiReloadJournal
--- a/hledger-ui/Hledger/UI/RegisterScreen.hs
+++ b/hledger-ui/Hledger/UI/RegisterScreen.hs
@ -7,12 +7,13 @@
 {-# OPTIONS_GHC -Wno-incomplete-record-updates #-}

 module Hledger.UI.RegisterScreen
- (rsNew
- ,rsDraw
- ,rsHandle
- ,rsSetAccount
- ,rsCenterSelection
- )
+(rsNew
+,rsUpdate
+,rsDraw
+,rsHandle
+,rsSetAccount
+,rsCenterSelection
+)
 where

 import Control.Monad
--- a/hledger-ui/Hledger/UI/TransactionScreen.hs
+++ b/hledger-ui/Hledger/UI/TransactionScreen.hs
@ -6,9 +6,10 @@
 {-# OPTIONS_GHC -Wno-incomplete-record-updates #-}

 module Hledger.UI.TransactionScreen
-( tsNew
-, tsDraw
-, tsHandle
+(tsNew
+,tsUpdate
+,tsDraw
+,tsHandle
 ) where

 import Control.Monad