module Monomer.Widgets.Animation.Types where
import Monomer.Core.WidgetTypes (Millisecond)
data AnimationMsg
= AnimationStart
| AnimationStop
| AnimationFinished Millisecond
deriving (AnimationMsg -> AnimationMsg -> Bool
(AnimationMsg -> AnimationMsg -> Bool)
-> (AnimationMsg -> AnimationMsg -> Bool) -> Eq AnimationMsg
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnimationMsg -> AnimationMsg -> Bool
== :: AnimationMsg -> AnimationMsg -> Bool
$c/= :: AnimationMsg -> AnimationMsg -> Bool
/= :: 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
$cshowsPrec :: Int -> AnimationMsg -> ShowS
showsPrec :: Int -> AnimationMsg -> ShowS
$cshow :: AnimationMsg -> String
show :: AnimationMsg -> String
$cshowList :: [AnimationMsg] -> ShowS
showList :: [AnimationMsg] -> ShowS
Show)