client/src/Util/Css.hs


1
2
3
4
5
6
7
8
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