simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 02:08:01 +03:00
Code Issues Projects Releases Wiki Activity

sort register by date

Browse Source
This commit is contained in:
Simon Michael 2007-07-03 19:06:47 +00:00
parent a266a9b2e0
commit b2b9aba791
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Ledger.hs
View File

@ -2,7 +2,6 @@ module Ledger
where where
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.Map ((!)) import Data.Map ((!))
import Data.Ord (comparing)
import Utils import Utils
import Types import Types

2
Utils.hs
View File

@ -4,6 +4,7 @@ module Utils (
module Char, module Char,
module Data.List, module Data.List,
module Data.Tree, module Data.Tree,
module Data.Ord,
module Text.Printf, module Text.Printf,
module Text.Regex, module Text.Regex,
module Debug.Trace, module Debug.Trace,
@ -14,6 +15,7 @@ where
import Char import Char
import Data.List import Data.List
import Data.Tree import Data.Tree
import Data.Ord
import Text.Printf import Text.Printf
import Text.Regex import Text.Regex
import Debug.Trace import Debug.Trace

2
hledger.hs
View File

@ -45,7 +45,7 @@ register opts acctpats descpats = do
where where
printRegister l = printRegister l =
putStr $ showTransactionsWithBalances putStr $ showTransactionsWithBalances
(ledgerTransactionsMatching (acctpats,descpats) l) (sortBy (comparing date) (ledgerTransactionsMatching (acctpats,descpats) l))
0 0
balance :: [Flag] -> [String] -> [String] -> IO () balance :: [Flag] -> [String] -> [String] -> IO ()