Use the LEDGER_FILE env var (if set) when generating reports.

Default to the all-years.journal if LEDGER_FILE is not set.

Author: apauley

ChangeLog.md

@@ -8,6 +8,12 @@ or the current directory, and generate only the relevant include files.
 This is a behavioural change and (for now) it needs to be enabled with the --enable-future-rundir switch.
 This will become the default behaviour in 0.14.x, at which time the switch will be removed.
 
+Reports:
+Use the LEDGER_FILE env var (if set) when generating reports.
+Default to the top-level all-years.journal if not set.
+
+Build with Stackage Nightly 2020-03-10 (ghc-8.8.3)
+
 ## 0.13.1
 
 - Automatically add [include lines for yearly price files](https://github.com/apauley/hledger-flow/#price-files) if they are present on disk.

src/Hledger/Flow/Reports.hs

@@ -10,6 +10,7 @@ import Hledger.Flow.RuntimeOptions
 import Hledger.Flow.Common
 import Control.Concurrent.STM
 import Data.Either
+import Data.Maybe
 
 import qualified Data.Text as T
 import qualified Hledger.Flow.Types as FlowTypes
@@ -44,10 +45,16 @@ generateReports' opts ch = do
                <> "https://github.com/apauley/hledger-flow/issues\n"
   channelOutLn ch wipMsg
   owners <- single $ shellToList $ listOwners opts
-  let aggregateJournal = journalFile opts []
+  ledgerEnvValue <- need "LEDGER_FILE" :: IO (Maybe Text)
+  let hledgerJournal = fromMaybe (baseDir opts </> allYearsFileName) $ fmap fromText ledgerEnvValue
+  hledgerJournalExists <- testfile hledgerJournal
+  _ <- if not hledgerJournalExists then die $ format ("Unable to find journal file: "%fp%"\nIs your LEDGER_FILE environment variable set correctly?") hledgerJournal else return ()
+  let journalWithYears = journalFile opts []
   let aggregateReportDir = outputReportDir opts ["all"]
-  aggregateYears <- includeYears ch aggregateJournal
-  let aggregateParams = ReportParams aggregateJournal aggregateYears aggregateReportDir
+  aggregateYears <- includeYears ch journalWithYears
+  let aggregateParams = ReportParams { ledgerFile = hledgerJournal
+                                     , reportYears = aggregateYears
+                                     , outputDir = aggregateReportDir}
   let aggregateOnlyReports = reportActions opts ch [transferBalance] aggregateParams
   ownerParams <- ownerParameters opts ch owners
   let ownerWithAggregateParams = (if length owners > 1 then [aggregateParams] else []) ++ ownerParams

stack.yaml

@@ -18,7 +18,7 @@
 #
 # resolver: ./custom-snapshot.yaml
 # resolver: https://example.com/snapshots/2018-01-01.yaml
-resolver: nightly-2020-03-09
+resolver: nightly-2020-03-10
 
 # User packages to be built.
 # Various formats can be used as shown in the example below.

stack.yaml.lock

@@ -6,7 +6,7 @@
 packages: []
 snapshots:
 - completed:
-    size: 499083
-    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/nightly/2020/3/9.yaml
-    sha256: 50f89cfb4370c15e4224a34a2316214d54e8a62b19a379fc2b1dc57ea3d5f358
-  original: nightly-2020-03-09
+    size: 501929
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/nightly/2020/3/10.yaml
+    sha256: b85b932144210a13f4628768d3e7f40bf2071ab0acf932671ff1aadac390d566
+  original: nightly-2020-03-10