Safe Haskell	Safe-Inferred
Language	GHC2021

Web.Hyperbole.View.CSS

Synopsis

whenLoading :: Styleable h => (CSS h -> CSS h) -> CSS h -> CSS h
disabled :: Styleable h => CSS h -> CSS h
loading :: Styleable h => CSS h -> CSS h

Documentation

whenLoading :: Styleable h => (CSS h -> CSS h) -> CSS h -> CSS h Source #

Apply CSS only when a request is in flight. See Example.Page.Contact

contactEditView :: User -> View Contact ()
contactEditView u = do
  el contactLoading ~ display None . whenLoading flexCol
  el (contactEdit View Save u) ~ whenLoading (display None)

disabled :: Styleable h => CSS h -> CSS h Source #

loading :: Styleable h => CSS h -> CSS h Source #