module Monomer.Widgets.Animation.Types where
data AnimationMsg
= AnimationStart
| AnimationStop
| AnimationFinished
deriving (AnimationMsg -> AnimationMsg -> Bool
(AnimationMsg -> AnimationMsg -> Bool)
-> (AnimationMsg -> AnimationMsg -> Bool) -> Eq AnimationMsg
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AnimationMsg -> AnimationMsg -> Bool
$c/= :: AnimationMsg -> AnimationMsg -> Bool
== :: AnimationMsg -> AnimationMsg -> Bool
$c== :: AnimationMsg -> AnimationMsg -> Bool
Eq, Int -> AnimationMsg -> ShowS
[AnimationMsg] -> ShowS
AnimationMsg -> String
(Int -> AnimationMsg -> ShowS)
-> (AnimationMsg -> String)
-> ([AnimationMsg] -> ShowS)
-> Show AnimationMsg
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AnimationMsg] -> ShowS
$cshowList :: [AnimationMsg] -> ShowS
show :: AnimationMsg -> String
$cshow :: AnimationMsg -> String
showsPrec :: Int -> AnimationMsg -> ShowS
$cshowsPrec :: Int -> AnimationMsg -> ShowS
Show)