aboutsummaryrefslogtreecommitdiff
path: root/client/src/Util/Css.hs
diff options
context:
space:
mode:
Diffstat (limited to 'client/src/Util/Css.hs')
-rw-r--r--client/src/Util/Css.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/client/src/Util/Css.hs b/client/src/Util/Css.hs
new file mode 100644
index 0000000..804b10f
--- /dev/null
+++ b/client/src/Util/Css.hs
@@ -0,0 +1,9 @@
+module Util.Css
+ ( classes
+ ) where
+
+import Data.Text (Text)
+import qualified Data.Text as T
+
+classes :: [(Text, Bool)] -> Text
+classes = T.unwords . map fst . filter snd