diff --git a/src/Utils/Form.hs b/src/Utils/Form.hs
index 5ab3624ed..96aa894b6 100644
--- a/src/Utils/Form.hs
+++ b/src/Utils/Form.hs
@@ -243,6 +243,7 @@ data ButtonMessage = MsgAmbiguousButtons
                    | MsgMultipleButtonValues
   deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic, Typeable)
 
+-- | Default button for submitting. Required in Foundation for Login, other Buttons defined in Handler.Utils.Form
 data ButtonSubmit = BtnSubmit
   deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic, Typeable)
 
@@ -306,6 +307,7 @@ combinedButtonFieldF :: forall m a.
                       ) => FieldSettings (HandlerSite m) -> AForm m [Maybe a]
 combinedButtonFieldF = combinedButtonField (universeF :: [a])
 
+-- | Ensures that only a single button press is accepted at once
 disambiguateButtons :: forall m a.
                      ( MonadHandler m
                      , RenderMessage (HandlerSite m) ButtonMessage