hledger-stockquotes 0.1.3.1 → 0.1.3.2

raw patch · 4 files changed

+30/−6 lines, 4 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• hledger-stockquotes.cabal +3/−2
• src/Hledger/StockQuotes.hs +2/−4
• src/Hledger/StockQuotes/Compat.hs +21/−0

@@ -3,6 +3,10 @@ ## master  +## v0.1.3.2++* Support breaking changes in `hledger-lib` v1.41.+  ## v0.1.3.1 

@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.36.0.+-- This file has been generated from package.yaml by hpack version 0.37.0. -- -- see: https://github.com/sol/hpack  name:           hledger-stockquotes-version:        0.1.3.1+version:        0.1.3.2 synopsis:       Generate HLedger Price Directives From Daily Stock Quotes. description:    @hledger-stockquotes@ is an addon for <https://hledger.org/ hledger> that                 reads your journal file, pulls the historical stock prices for commodities,@@ -40,6 +40,7 @@ library   exposed-modules:       Hledger.StockQuotes+      Hledger.StockQuotes.Compat       Web.AlphaVantage   other-modules:       Paths_hledger_stockquotes

@@ -47,6 +47,7 @@     , stderr     ) +import Hledger.StockQuotes.Compat (allJournalCommodities) import Web.AlphaVantage     ( AlphaVantageResponse (..)     , Config@@ -76,10 +77,7 @@                 definputopts                 journalPath     currentTime <- getCurrentTime-    let commodities =-            filter (`notElem` excluded) $-                M.keys (jcommodities journal)-                    <> M.keys (jinferredcommodities journal)+    let commodities = filter (`notElem` excluded) $ allJournalCommodities journal         dates = map tdate $ jtxns journal         currentYear = (\(y, _, _) -> y) $ toGregorian $ utctDay currentTime         minDate = case minimumMay dates of

@@ -0,0 +1,21 @@+{-# LANGUAGE CPP #-}+-- | Hledger-related functions that use CPP macros for multiple+module Hledger.StockQuotes.Compat+    ( allJournalCommodities+    ) where++import Hledger (CommoditySymbol, Journal (..))++import qualified Data.Map.Strict as M++-- | Get all declared & inferred commodities of a Journal.+allJournalCommodities :: Journal -> [CommoditySymbol]+allJournalCommodities journal =+-- TODO: remove < 1.41 support after we drop GHC 9.8+#if MIN_VERSION_hledger_lib(1, 41, 0)+    M.keys (jdeclaredcommodities journal)+        <> M.keys (jinferredcommoditystyles journal)+#else+    M.keys (jcommodities journal)+        <> M.keys (jinferredcommodities journal)+#endif