diff options
| author | Joris | 2019-10-22 22:26:38 +0200 |
|---|---|---|
| committer | Joris | 2019-10-22 22:26:38 +0200 |
| commit | 613ffccac4b3ab25c6d4c631fab757da0b35acf6 (patch) | |
| tree | 13e448af89f4079bb62d7ce8b5a44b6a64515129 /client/src/Component/Form.hs | |
| parent | 80f09e8b3a5c856e60922a73c9161a8c5392e4d4 (diff) | |
| download | budget-613ffccac4b3ab25c6d4c631fab757da0b35acf6.tar.gz budget-613ffccac4b3ab25c6d4c631fab757da0b35acf6.tar.bz2 budget-613ffccac4b3ab25c6d4c631fab757da0b35acf6.zip | |
Harmonize view component code style
Diffstat (limited to 'client/src/Component/Form.hs')
| -rw-r--r-- | client/src/Component/Form.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/client/src/Component/Form.hs b/client/src/Component/Form.hs index 6ea02fa..6878e68 100644 --- a/client/src/Component/Form.hs +++ b/client/src/Component/Form.hs @@ -1,12 +1,12 @@ module Component.Form - ( form + ( view ) where import qualified Data.Map as M import Reflex.Dom (MonadWidget) import qualified Reflex.Dom as R -form :: forall t m a. MonadWidget t m => m a -> m a -form content = +view :: forall t m a. MonadWidget t m => m a -> m a +view content = R.elAttr "form" (M.singleton "onsubmit" "event.preventDefault()") $ content |