slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib: more compact debug output for Accounts

Browse Source
This commit is contained in:
Simon Michael 2017-09-29 18:50:18 -10:00
parent b5602fd771
commit 62c822c1e6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-lib/Hledger/Data/Account.hs
View File

@ -13,6 +13,7 @@ import Data.List
import Data.Maybe import Data.Maybe
import Data.Ord import Data.Ord
import qualified Data.Map as M import qualified Data.Map as M
import Data.Text (pack,unpack)
import Safe (headMay, lookupJustDef) import Safe (headMay, lookupJustDef)
import Test.HUnit import Test.HUnit
import Text.Printf import Text.Printf
@ -27,7 +28,7 @@ import Hledger.Utils
-- deriving instance Show Account -- deriving instance Show Account
instance Show Account where instance Show Account where
show Account{..} = printf "Account %s (boring:%s, postings:%d, ebalance:%s, ibalance:%s)" show Account{..} = printf "Account %s (boring:%s, postings:%d, ebalance:%s, ibalance:%s)"
aname (pack $ regexReplace ":" "_" $ unpack aname) -- hide : so pretty-show doesn't break line
(if aboring then "y" else "n" :: String) (if aboring then "y" else "n" :: String)
anumpostings anumpostings
(showMixedAmount aebalance) (showMixedAmount aebalance)