icon :: (MS m, MonadReader (DS r) m, In Bool r) => [Text] -> Text -> m (ES ())
icon xs t =divClass "icon-box" $  do
                (r,_) <- divClass "icon" $ elAttr' "i" [("class",foldl (\y x -> y <> " fa-" <> x ) "fa" xs)] $ return ()
                asks (fmap see)  >>= domMorph (\q -> if q then divClass "hints" (text t) >> return never else return never )
                return $ domEvent Click r
icon :: (MS m, MonadReader (DS r) m, In Bool r) => [Text] -> Text -> m (ES ())
icon xs t =divClass "icon-box" $  do
                (r,_) <- divClass "icon" $ elAttr' "i" [("class",foldl (\y x -> y <> " fa-" <> x ) "fa" xs)] $ return ()
                asks (fmap see)  >>= domMorph (\q -> if q then divClass "hints" (text t) >> return never else return never )
                return $ domEvent Click r
icon xs t =divClass "icon-box" $  do
                (r,_) <- divClass "icon" $ elAttr' "i" [("class",foldl (\y x -> y <> " fa-" <> x ) "fa" xs)] $ return ()
                asks (fmap see)  >>= domMorph (\q -> if q then divClass "hints" (text t) >> return never else return never )
                return $ domEvent Click r