web: fix build breakage

This commit is contained in:
Simon Michael 2019-05-23 22:25:28 -07:00
parent 7c4f45ac1f
commit 7ef3ddd1e6

View File

@ -24,7 +24,7 @@ getJournalR = do
Just (a, inclsubs) -> "Transactions in " <> a <> if inclsubs then "" else " (excluding subaccounts)"
title' = title <> if m /= Any then ", filtered" else ""
acctlink a = (RegisterR, [("q", accountQuery a)])
(_, items) = journalTransactionsReport (reportopts_ $ cliopts_ opts) j m
(_, items) = transactionsReport (reportopts_ $ cliopts_ opts) j m
defaultLayout $ do
setTitle "journal - hledger-web"