hledger-diff 0.2.0.5 → 0.2.0.6
raw patch · 2 files changed
+7/−5 lines, 2 filesdep +textdep ~hledger-lib
Dependencies added: text
Dependency ranges changed: hledger-lib
Files
- Main.hs +4/−3
- hledger-diff.cabal +3/−2
Main.hs view
@@ -7,6 +7,7 @@ import System.Exit import Data.Time import Data.Either+import qualified Data.Text as T data PostingWithPath = PostingWithPath { ppposting :: Posting,@@ -64,7 +65,7 @@ Right j <- readJournalFile (Just "journal") Nothing False fn return j -matchingPostings :: String -> Journal -> [PostingWithPath]+matchingPostings :: AccountName -> Journal -> [PostingWithPath] matchingPostings acct j = filter ((== acct) . paccount . ppposting) $ allPostingsWithPath j pickSide :: Side -> (a,a) -> a@@ -77,12 +78,12 @@ main :: IO () main = getArgs >>= \args -> case args of- [acct, f1, f2] -> diffCmd acct f1 f2+ [acct, f1, f2] -> diffCmd (T.pack acct) f1 f2 _ -> do putStrLn "Usage: hledger-diff account:name left.journal right.journal" exitFailure -diffCmd :: String -> FilePath -> FilePath -> IO ()+diffCmd :: AccountName -> FilePath -> FilePath -> IO () diffCmd acct f1 f2 = do j1 <- readJournalFile' f1 j2 <- readJournalFile' f2
hledger-diff.cabal view
@@ -1,5 +1,5 @@ name: hledger-diff-version: 0.2.0.5+version: 0.2.0.6 synopsis: Compares the transactions in two ledger files. description: hledger-diff is a command-line utility to compare two journal files. It@@ -24,6 +24,7 @@ main-is: Main.hs build-depends: base >=4.6 && <4.10,- hledger-lib >=0.24 && <0.28,+ hledger-lib >=1 && <1.1,+ text, time default-language: Haskell2010