From 790b6ca9daf34950a82fee58613a5d929981b400 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 24 Mar 2023 15:08:13 -1000
Subject: [PATCH] fix: ui: add new screen missing from commit

---
 hledger-ui/Hledger/UI/CashScreen.hs | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 hledger-ui/Hledger/UI/CashScreen.hs

diff --git a/hledger-ui/Hledger/UI/CashScreen.hs b/hledger-ui/Hledger/UI/CashScreen.hs
new file mode 100644
index 000000000..eb80c7b82
--- /dev/null
+++ b/hledger-ui/Hledger/UI/CashScreen.hs
@@ -0,0 +1,29 @@
+-- The cash accounts screen, like the accounts screen but restricted to cash accounts.
+
+module Hledger.UI.CashScreen
+ (csNew
+ ,csUpdate
+ ,csDraw
+ ,csHandle
+ )
+where
+
+import Brick
+
+import Hledger
+import Hledger.Cli hiding (mode, progname, prognameandversion)
+import Hledger.UI.UIOptions
+import Hledger.UI.UITypes
+import Hledger.UI.UIUtils
+import Hledger.UI.UIScreens
+import Hledger.UI.AccountsScreen (asHandle, asDrawHelper)
+
+
+csDraw :: UIState -> [Widget Name]
+csDraw ui = dbgui "csDraw" $ asDrawHelper ui ropts' scrname
+  where
+    scrname = "cash balances"
+    ropts' = (_rsReportOpts $ reportspec_ $ uoCliOpts $ aopts ui){balanceaccum_=Historical}
+
+csHandle :: BrickEvent Name AppEvent -> EventM Name UIState ()
+csHandle = asHandle . dbgui "csHandle"