From 45df1af53498e4d8d74ee00c4595cdf72188b08c Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sun, 11 Jun 2023 12:27:57 -0400
Subject: [PATCH] ENH export account tree type

---
 dhall/Types.dhall     | 1 +
 lib/Internal/Utils.hs | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/dhall/Types.dhall b/dhall/Types.dhall
index ff279eb..0f02479 100644
--- a/dhall/Types.dhall
+++ b/dhall/Types.dhall
@@ -1095,6 +1095,7 @@ in  { CurID
     , BudgetCurrency
     , Exchange
     , TaggedAcnt
+    , AccountTree
     , Account
     , Placeholder
     , PretaxValue
diff --git a/lib/Internal/Utils.hs b/lib/Internal/Utils.hs
index 9b55cf0..909021e 100644
--- a/lib/Internal/Utils.hs
+++ b/lib/Internal/Utils.hs
@@ -325,7 +325,7 @@ toTx sc sa fromEntries toEntries r@TxRecord {trAmount, trDate, trDesc} = do
               { eAcnt = a
               , eCurrency = c
               , eValue = Just fromValue
-              , eComment = ""
+              , eComment = "" -- TODO actually fill this in
               , eTags = [] -- TODO what goes here?
               }
        in Tx