hledger-iadd 1.3.8 → 1.3.9
raw patch · 5 files changed
+19/−10 lines, 5 filesdep ~hledger-libPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: hledger-lib
API changes (from Hackage documentation)
Files
- ChangeLog.md +5/−0
- README.md +6/−0
- hledger-iadd.cabal +4/−4
- src/Model.hs +1/−1
- src/main/Main.hs +3/−5
ChangeLog.md view
@@ -1,3 +1,8 @@+# 1.3.9 [2019-03-02]++ - dependencies: Port to hledger-lib-1.14+ - Add AUR packaging+ # 1.3.8 - dependencies: Port to hledger-lib-1.13
README.md view
@@ -23,6 +23,12 @@ ## Installation ### Latest release+#### Archlinux++For Archlinux users, an [AUR package](https://aur.archlinux.org/packages/hledger-iadd-bin) with a binary built by me (@hpdeifel)+is available. If you want to compile `hledger-iadd` yourself, use one of the+following installation methods.+ #### stack The easiest method would be [stack]: Install the [stack] program and
hledger-iadd.cabal view
@@ -1,5 +1,5 @@ name: hledger-iadd-version: 1.3.8+version: 1.3.9 synopsis: A terminal UI as drop-in replacement for hledger add description: This is a terminal UI as drop-in replacement for hledger add. .@@ -61,7 +61,7 @@ , Data.Time.Ext default-language: Haskell2010 build-depends: base >= 4.9 && < 5- , hledger-lib >= 1.12 && < 1.14+ , hledger-lib >= 1.14 && < 1.15 , brick >= 0.27 , vty >= 5.4 , text@@ -88,7 +88,7 @@ default-language: Haskell2010 build-depends: base >= 4.9 && < 5 , hledger-iadd- , hledger-lib >= 1.12 && < 1.14+ , hledger-lib >= 1.14 && < 1.15 , brick >= 0.27 , vty >= 5.4 , text@@ -116,7 +116,7 @@ default-language: Haskell2010 build-depends: base >= 4.9 && < 5 , hledger-iadd- , hledger-lib >= 1.13 && < 1.14+ , hledger-lib >= 1.14 && < 1.15 , text , transformers >= 0.3 , time >= 1.5
src/Model.hs view
@@ -378,7 +378,7 @@ compare (length as1) (length as2) : zipWith cmpAmount sortedAs1 sortedAs2 cmpBalanceAssertion :: HL.BalanceAssertion -> HL.BalanceAssertion -> Ordering- cmpBalanceAssertion = lexical [cmp HL.baamount, cmp HL.baexact]+ cmpBalanceAssertion = lexical [cmp HL.baamount, cmp HL.batotal] sortPostings :: [HL.Posting] -> [HL.Posting] sortPostings = sortBy (lexical postingAttributes)
src/main/Main.hs view
@@ -2,7 +2,6 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE OverloadedStrings, LambdaCase #-}-{-# LANGUAGE PackageImports #-} module Main where @@ -52,7 +51,6 @@ import System.Environment.XDG.BaseDir (getUserConfigFile) import System.Exit (exitFailure, exitSuccess) import System.IO (hPutStr, hPutStrLn, stderr)--- explicit package import since hledger-lib defines the same module import qualified Text.Megaparsec as P import qualified Text.Megaparsec.Char as P @@ -132,7 +130,7 @@ CommentDialog _ c -> [renderCommentWidget c, ui] NoDialog -> [ui] - where ui = (txt "New Transaction:")+ where ui = txt "New Transaction:" <=> padAll 1 (borderLeft $ padLeft (Pad 1) $ viewState (asStep as)) <=> hBorder <=> (viewQuestion (asStep as)@@ -256,7 +254,7 @@ doNextStep :: Bool -> AppState -> IO AppState doNextStep useSelected as = do let inputText = editText as- name = fromMaybe (Left $ inputText) $+ name = fromMaybe (Left inputText) $ msum [ Right <$> if useSelected then snd <$> listSelectedElement (asContext as) else Nothing , Left <$> asMaybe (editText as) , Left <$> asSuggestion as@@ -313,7 +311,7 @@ , asInputHistory = historyTail } where (lastInput,historyTail) =- case (asInputHistory as) of+ case asInputHistory as of x:t -> (x,t) [] -> ("",[])