mirror of
https://github.com/simonmichael/hledger.git
synced 2024-11-08 07:09:28 +03:00
23 lines
653 B
Haskell
Executable File
23 lines
653 B
Haskell
Executable File
#!/usr/bin/env runhaskell
|
|
{-|
|
|
hledger-print-unique [-f JOURNALFILE | -f-]
|
|
|
|
Print only journal entries which are unique by description (or
|
|
something else). Reads the default or specified journal, or stdin.
|
|
|
|
|-}
|
|
|
|
import Data.List
|
|
import Data.Ord
|
|
import Hledger.Cli
|
|
|
|
main = do
|
|
putStrLn "(-f option not supported)"
|
|
opts <- getCliOpts (defCommandMode ["hledger-print-unique"])
|
|
withJournalDo opts $
|
|
\opts j@Journal{jtxns=ts} -> print' opts j{jtxns=uniquify ts}
|
|
where
|
|
uniquify = nubBy (\t1 t2 -> thingToCompare t1 == thingToCompare t2) . sortBy (comparing thingToCompare)
|
|
thingToCompare = tdescription
|
|
-- thingToCompare = tdate
|