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