module Simulation.Aivika.Internal.Arrival
(Arrival(..)) where
import Simulation.Aivika.Event
data Arrival a =
Arrival { forall a. Arrival a -> a
arrivalValue :: a,
forall a. Arrival a -> Double
arrivalTime :: Double,
forall a. Arrival a -> Maybe Double
arrivalDelay :: Maybe Double
} deriving (Arrival a -> Arrival a -> Bool
forall a. Eq a => Arrival a -> Arrival a -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Arrival a -> Arrival a -> Bool
$c/= :: forall a. Eq a => Arrival a -> Arrival a -> Bool
== :: Arrival a -> Arrival a -> Bool
$c== :: forall a. Eq a => Arrival a -> Arrival a -> Bool
Eq, Arrival a -> Arrival a -> Bool
Arrival a -> Arrival a -> Ordering
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
forall {a}. Ord a => Eq (Arrival a)
forall a. Ord a => Arrival a -> Arrival a -> Bool
forall a. Ord a => Arrival a -> Arrival a -> Ordering
forall a. Ord a => Arrival a -> Arrival a -> Arrival a
min :: Arrival a -> Arrival a -> Arrival a
$cmin :: forall a. Ord a => Arrival a -> Arrival a -> Arrival a
max :: Arrival a -> Arrival a -> Arrival a
$cmax :: forall a. Ord a => Arrival a -> Arrival a -> Arrival a
>= :: Arrival a -> Arrival a -> Bool
$c>= :: forall a. Ord a => Arrival a -> Arrival a -> Bool
> :: Arrival a -> Arrival a -> Bool
$c> :: forall a. Ord a => Arrival a -> Arrival a -> Bool
<= :: Arrival a -> Arrival a -> Bool
$c<= :: forall a. Ord a => Arrival a -> Arrival a -> Bool
< :: Arrival a -> Arrival a -> Bool
$c< :: forall a. Ord a => Arrival a -> Arrival a -> Bool
compare :: Arrival a -> Arrival a -> Ordering
$ccompare :: forall a. Ord a => Arrival a -> Arrival a -> Ordering
Ord, Int -> Arrival a -> ShowS
forall a. Show a => Int -> Arrival a -> ShowS
forall a. Show a => [Arrival a] -> ShowS
forall a. Show a => Arrival a -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Arrival a] -> ShowS
$cshowList :: forall a. Show a => [Arrival a] -> ShowS
show :: Arrival a -> String
$cshow :: forall a. Show a => Arrival a -> String
showsPrec :: Int -> Arrival a -> ShowS
$cshowsPrec :: forall a. Show a => Int -> Arrival a -> ShowS
Show)