Reactogon/Main.hs

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