Transition.purs

module CSS.Transition where

import Prelude

import Data.Generic.Rep (class Generic)

import CSS.String (fromString)
import CSS.Property (class Val, Value)

newtype TimingFunction = TimingFunction Value

derive instance eqTimingFunction :: Eq TimingFunction
derive instance ordTimingFunction:: Ord TimingFunction
derive instance genericTimingFunction :: Generic TimingFunction _

instance valTimingFunction :: Val TimingFunction where
  value (TimingFunction v) = v

linear :: TimingFunction
linear = TimingFunction $ fromString "linear"

easeOut :: TimingFunction
easeOut = TimingFunction $ fromString "ease-out"