simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 10:17:35 +03:00
Code Issues Projects Releases Wiki Activity

web: add form: in description field also offer declared/used payees

Browse Source
This commit is contained in:
Simon Michael 2021-01-17 15:18:53 -08:00
parent 422329fbfa
commit 3f095fb472
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-web/Hledger/Web/Widget/AddForm.hs
View File

@ -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"))