From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 client/src/Component/Tag.hs | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 client/src/Component/Tag.hs

(limited to 'client/src/Component/Tag.hs')

diff --git a/client/src/Component/Tag.hs b/client/src/Component/Tag.hs
deleted file mode 100644
index f75b8d3..0000000
--- a/client/src/Component/Tag.hs
+++ /dev/null
@@ -1,27 +0,0 @@
-module Component.Tag
-  ( In(..)
-  , view
-  ) where
-
-import qualified Data.Map   as M
-import           Data.Text  (Text)
-import qualified Data.Text  as T
-import           Reflex.Dom (MonadWidget)
-import qualified Reflex.Dom as R
-
-data In = In
-  { _in_text  :: Text
-  , _in_color :: Text
-  }
-
-view :: forall t m a. MonadWidget t m => In -> m ()
-view input =
-  R.elAttr "span" attrs $
-    R.text $ _in_text input
-
-  where
-    attrs =
-      M.fromList
-        [ ("class", "tag")
-        , ("style", T.concat [ "background-color: ", _in_color input ])
-        ]
-- 
cgit v1.2.3