Set type="submit" when rendering a submitButton. Fixes #1439

Author: mpscholten

IHP/View/CSSFramework.hs

@@ -234,7 +234,7 @@ instance Default CSSFramework where
 
             styledSubmitButton cssFramework SubmitButton { label, buttonClass } =
                 let className :: Text = get #styledSubmitButtonClass cssFramework
-                in [hsx|<button class={classes [(className, True), (buttonClass, not (null buttonClass))]}>{label}</button>|]
+                in [hsx|<button class={classes [(className, True), (buttonClass, not (null buttonClass))]} type="submit">{label}</button>|]
 
             styledInputClass _ _ = ""
             styledInputInvalidClass _ _ = "invalid"

Test/View/CSSFrameworkSpec.hs

@@ -42,10 +42,10 @@ tests = do
             describe "submit button" do
                 let submitButton = SubmitButton { label = "Save Project" , buttonClass = "my-custom-button" , cssFramework }
                 it "should render" do
-                    styledSubmitButton cssFramework cssFramework submitButton `shouldRenderTo` "<button class=\"btn btn-primary my-custom-button\">Save Project</button>"
+                    styledSubmitButton cssFramework cssFramework submitButton `shouldRenderTo` "<button class=\"btn btn-primary my-custom-button\" type=\"submit\">Save Project</button>"
 
                 it "should render with empty class" do
-                    styledSubmitButton cssFramework cssFramework (submitButton { buttonClass = "" }) `shouldRenderTo` "<button class=\"btn btn-primary\">Save Project</button>"
+                    styledSubmitButton cssFramework cssFramework (submitButton { buttonClass = "" }) `shouldRenderTo` "<button class=\"btn btn-primary\" type=\"submit\">Save Project</button>"
 
 
             describe "text field" do