mergeLR, mergeL, mergeR :: (Ord s) => Binop (FutureG s (ReactiveG s b))

-- Same as 'merge'
u `mergeLR` v = 
  (inFutR (`merge` v) <$> u) `mappend` (inFutR (u `merge`) <$> v)
mergeLR, mergeL, mergeR :: (Ord s) => Binop (FutureG s (ReactiveG s b))
u `mergeLR` v = 
  (inFutR (`merge` v) <$> u) `mappend` (inFutR (u `merge`) <$> v)
u `mergeLR` v = 
  (inFutR (`merge` v) <$> u) `mappend` (inFutR (u `merge`) <$> v)