From ea1558edd5a4c7aeddc1b1dc442d41a87bc20e47 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Mon, 25 Mar 2019 13:01:49 +0100 Subject: [PATCH] Minor comment --- src/Utils/Form.hs | 2 ++ 1 file changed, 2 insertions(+) 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