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/Link.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/Link.hs')
| -rw-r--r-- | client/src/Component/Link.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/client/src/Component/Link.hs b/client/src/Component/Link.hs index 7e8558b..1fd620e 100644 --- a/client/src/Component/Link.hs +++ b/client/src/Component/Link.hs @@ -1,5 +1,5 @@ module Component.Link - ( link + ( view ) where import Data.Map (Map) @@ -9,8 +9,8 @@ import qualified Data.Text as T import Reflex.Dom (Dynamic, MonadWidget) import qualified Reflex.Dom as R -link :: forall t m a. MonadWidget t m => Text -> Dynamic t (Map Text Text) -> Text -> m () -link href inputAttrs content = +view :: forall t m a. MonadWidget t m => Text -> Dynamic t (Map Text Text) -> Text -> m () +view href inputAttrs content = R.elDynAttr "a" attrs (R.text content) where |