module RawLedger where import qualified Data.Map as Map import Utils import Types import AccountName import Entry instance Show RawLedger where show l = printf "RawLedger with %d entries" ((length $ entries l) + (length $ modifier_entries l) + (length $ periodic_entries l))