From a36e9186d001bdc208e91011542603e623b6a0c6 Mon Sep 17 00:00:00 2001
From: Amitai Burstein <amitai@gizra.com>
Date: Mon, 17 Apr 2023 22:06:26 +0300
Subject: [PATCH] Use the passed argument

---
 Web/View/Tasks/New.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Web/View/Tasks/New.hs b/Web/View/Tasks/New.hs
index 12b48e4..e2f8a82 100644
--- a/Web/View/Tasks/New.hs
+++ b/Web/View/Tasks/New.hs
@@ -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" } }
-|]
\ No newline at end of file
+|]