definition:
|
o5 :: (Data a, Data b, Data c, Data d, Data e) =>
Observer a -> Observer b -> Observer c -> Observer d ->
Observer e -> String ->
(a -> b -> c -> d -> e -> f) ->
a -> b -> c -> d -> e -> Label -> EventID -> [EventID] -> f
o5 observeA observeB observeC observeD observeE constrStr constr
x1 x2 x3 x4 x5 label parent preds =
unsafePerformIO $ do
(eventID,newPreds) <- recordEvent label (Value 5 constrStr) parent preds
return (constr (observer observeA 1 x1 label eventID newPreds)
(observer observeB 2 x2 label eventID newPreds)
(observer observeC 3 x3 label eventID newPreds)
(observer observeD 4 x4 label eventID newPreds)
(observer observeE 5 x5 label eventID newPreds))
|
iotype:
|
{(_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_,_) |-> _}
|
signature:
|
(Prelude.Data a, Prelude.Data b, Prelude.Data c, Prelude.Data d, Prelude.Data e) => (a
-> String -> Prelude.Int -> [Prelude.Int] -> a) -> (b -> String -> Prelude.Int
-> [Prelude.Int] -> b) -> (c -> String -> Prelude.Int -> [Prelude.Int] -> c)
-> (d -> String -> Prelude.Int -> [Prelude.Int] -> d) -> (e -> String
-> Prelude.Int -> [Prelude.Int] -> e) -> String -> (a -> b -> c -> d -> e -> f)
-> a -> b -> c -> d -> e -> String -> Prelude.Int -> [Prelude.Int] -> f
|