Ajout : Lib.Foldable : tests.

[comptalang.git] / cli / Hcompta / CLI / Command / Balance.hs

diff --git a/cli/Hcompta/CLI/Command/Balance.hs b/cli/Hcompta/CLI/Command/Balance.hs
index 3a43c02eee0d86f2e10065879d2cb6132a874f1a..9f4e2745608ee55d4ac78db6f3e79b32976e12ea 100644 (file)
--- a/cli/Hcompta/CLI/Command/Balance.hs
+++ b/cli/Hcompta/CLI/Command/Balance.hs
@@ -97,7 +97,7 @@ run context args = do
        case koks of
         (kos@(_:_), _oks) ->
                (flip mapM_) kos $ \(_path, ko) ->
-                       Write.fatal context $ ko
+                       Write.fatal context $ show ko
         ([], journals) -> do
                let balance =
                        Data.List.foldl
@@ -108,7 +108,7 @@ run context args = do
                Write.debug context $ ppShow $ balance
                Write.debug context $ ppShow $
                        Lib.TreeMap.flatten (const ()) (Balance.by_account balance)
-               let expanded = Balance.expand $ Balance.by_account balance
+               let expanded = Balance.expanded $ Balance.by_account balance
                Write.debug context $ ppShow $ expanded
                with_color <- Write.with_color context IO.stdout
                Ledger.Write.put with_color IO.stdout $ do