Minor comment

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