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