{-# LANGUAGE OverloadedStrings #-}

module Design.Animation.Opacity
  ( opacityAnimation
  ) where

import Data.String (fromString)

import Clay

import Design.Animation.Keyframes

opacityAnimation :: Css
opacityAnimation = do
  animationName (fromString . show $ OpacityKeyframes)
  animationDuration (sec 0.2)
  animationTimingFunction ease