submitButton :: MonadHandler m => Text -> AForm m ()
submitButton name = bootstrapSubmit
                    $ BootstrapSubmit
                        (name :: Text)
                        "btn-default"
                        [("attribute-name","attribute-value")]
submitButton :: MonadHandler m => Text -> AForm m ()
submitButton name = bootstrapSubmit
                    $ BootstrapSubmit
                        (name :: Text)
                        "btn-default"
                        [("attribute-name","attribute-value")]
submitButton name = bootstrapSubmit
                    $ BootstrapSubmit
                        (name :: Text)
                        "btn-default"
                        [("attribute-name","attribute-value")]