RCMA/Main.hs

   1 import FRP.Yampa
   2 import Hails.Yampa
   3 import RCMA.Semantics
   4 import RCMA.Translator.Message
   5 import RCMA.Translator.Translator
   6
   7 -- The whole system is a single SF getting new messages, transforming
   8 -- them and adding some more.
   9 rcma :: SF [(Frames, RawMessage)] [(Frames, RawMessage)]
  10 rcma = undefined
  11
  12 main :: IO ()
  13 main = do
  14   (inp, out) <- yampaReactiveDual [] rcma
  15   return ()