ryanmwangi/compareware
1
0
Fork 0
forked from janek/compareware
Code Pull requests Activity

Merge pull request from amitaibu/patch-1

Browse source 
Use the passed argument
This commit is contained in:
Marc Scholten 2023-04-18 08:29:48 +02:00 • committed by GitHub
commit ed89bebd5b
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions

2
Web/View/Tasks/New.hs
View file

@ -37,7 +37,7 @@ 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|