diff --git a/src/Web/Hyperbole/HyperView/Forms.hs b/src/Web/Hyperbole/HyperView/Forms.hs
index ab57a3e..dbde846 100644
--- a/src/Web/Hyperbole/HyperView/Forms.hs
+++ b/src/Web/Hyperbole/HyperView/Forms.hs
@@ -250,7 +250,7 @@ input ft = do
 checkbox :: forall id a. Bool -> View (Input id a) ()
 checkbox isChecked = do
   inp :: Input id a <- viewId
-  tag "input" @ att "type" "checkbox" . name inp.inputName.value $ none @ checked isChecked
+  tag "input" @ att "type" "checkbox" . checked isChecked . name inp.inputName.value $ none
 
 
 -- NOTE: Radio is a special type of selection different from list type or