From f50f060d9b5bc0f7210f45ae5670e12bc083d37f Mon Sep 17 00:00:00 2001
From: Amitai Burstein <amitai@gizra.com>
Date: Sat, 23 Dec 2023 18:45:00 +0200
Subject: [PATCH] Rename property

---
 IHP/View/CSSFramework.hs | 4 ++--
 IHP/View/Types.hs        | 2 +-
 Test/View/FormSpec.hs    | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/IHP/View/CSSFramework.hs b/IHP/View/CSSFramework.hs
index 0cf577673..595818da4 100644
--- a/IHP/View/CSSFramework.hs
+++ b/IHP/View/CSSFramework.hs
@@ -272,9 +272,9 @@ instance Default CSSFramework where
 
             styledValidationResultClass = ""
 
-            styledSubmitButton cssFramework SubmitButton { label, buttonClass, disabled } =
+            styledSubmitButton cssFramework SubmitButton { label, buttonClass, buttonDisabled } =
                 let className :: Text = cssFramework.styledSubmitButtonClass
-                in [hsx|<button class={classes [(className, True), (buttonClass, not (null buttonClass))]} disabled={disabled} type="submit">{label}</button>|]
+                in [hsx|<button class={classes [(className, True), (buttonClass, not (null buttonClass))]} disabled={buttonDisabled} type="submit">{label}</button>|]
 
             styledInputClass _ _ = ""
             styledInputInvalidClass _ _ = "invalid"
diff --git a/IHP/View/Types.hs b/IHP/View/Types.hs
index d11e89664..39ce2e34b 100644
--- a/IHP/View/Types.hs
+++ b/IHP/View/Types.hs
@@ -66,8 +66,8 @@ data FormField = FormField
 data SubmitButton = SubmitButton
     { label :: Blaze.Html
     , buttonClass :: Text
+    , buttonDisabled :: Bool
     , cssFramework :: CSSFramework
-    , disabled :: Bool
     }
 
 data FormContext model = FormContext
diff --git a/Test/View/FormSpec.hs b/Test/View/FormSpec.hs
index e5d32cb75..d3f06ed6b 100644
--- a/Test/View/FormSpec.hs
+++ b/Test/View/FormSpec.hs
@@ -50,7 +50,7 @@ tests = do
 
                 let form = formForWithOptions project options [hsx|
                     {textField #title}
-                    {submitButton {disabled = True}}
+                    {submitButton {buttonDisabled = True}}
                 |]
                 form `shouldRenderTo` "<form method=\"GET\" action=\"/CreateProject\" id=\"\" class=\"new-form\" data-disable-javascript-submission=\"false\"><div class=\"mb-3\" id=\"form-group-project_title\"><label class=\"form-label\" for=\"project_title\">Title</label><input type=\"text\" name=\"title\" placeholder=\"\" id=\"project_title\" class=\"form-control\"> </div> <button class=\"btn btn-primary\" disabled=\"disabled\" type=\"submit\">Create Project</button></form>"