From 3f095fb4723458d59c927ac37f0c98f1044eaa85 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sun, 17 Jan 2021 15:18:53 -0800 Subject: [PATCH] web: add form: in description field also offer declared/used payees --- hledger-web/Hledger/Web/Widget/AddForm.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger-web/Hledger/Web/Widget/AddForm.hs b/hledger-web/Hledger/Web/Widget/AddForm.hs index bc9138c08..d7e50f53e 100644 --- a/hledger-web/Hledger/Web/Widget/AddForm.hs +++ b/hledger-web/Hledger/Web/Widget/AddForm.hs @@ -14,7 +14,6 @@ module Hledger.Web.Widget.AddForm import Control.Monad.State.Strict (evalStateT) import Data.Bifunctor (first) import Data.List (dropWhileEnd, intercalate, unfoldr) -import Data.List.Extra (nubSort) import Data.Maybe (isJust) #if !(MIN_VERSION_base(4,13,0)) import Data.Semigroup ((<>)) @@ -28,6 +27,7 @@ import Yesod import Hledger import Hledger.Web.Settings (widgetFile) +import Data.List.Extra (nubSort) addModal :: ( MonadWidget m @@ -72,7 +72,7 @@ addForm j today = identifyForm "add" $ \extra -> do let (postRes, displayRows) = validatePostings acctRes amtRes -- bindings used in add-form.hamlet - let descriptions = nubSort $ tdescription <$> jtxns j + let descriptions = nubSort $ journalPayeesDeclaredOrUsed j ++ journalDescriptions j journals = fst <$> jfiles j pure (validateTransaction dateRes descRes postRes, $(widgetFile "add-form"))