janek
/
compareware
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Merge pull request #2 from amitaibu/patch-1 

Use the passed argument
This commit is contained in:
Marc Scholten 2023-04-18 08:29:48 +02:00 committed by GitHub
parent 7c10c7ae63 a36e9186d0
commit ed89bebd5b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Web/View/Tasks/New.hs
View File

@ -37,9 +37,9 @@ prototypeFor field record =
where
parentFormContext = ?formContext
prototype :: Html
prototype = let ?formContext = parentFormContext { model = parentFormContext.model |> set field [newRecord] } in nestedFormFor field renderTagForm
prototype = let ?formContext = parentFormContext { model = parentFormContext.model |> set field [record] } in nestedFormFor field renderTagForm
renderTagForm :: (?formContext :: FormContext Tag) => Html
renderTagForm = [hsx|
{(textField #name) { disableLabel = True, placeholder = "Tag name" } }
|]
|]