{-# LANGUAGE OverloadedStrings #-}

module Design.Animation.Keyframes
  ( Keyframes(..)
  , allKeyframes
  ) where

import Data.String (fromString)

import Clay

data Keyframes =
  OpacityKeyframes
  deriving (Eq, Show)

allKeyframes :: Css
allKeyframes =
  keyframes
    (fromString . show $ OpacityKeyframes)
    [ ( 0
      , opacity 0
      )
    , ( 100
      , opacity 1
      )
    ]