RCMA/Translator/Translator.hs

   1 {-# LANGUAGE Arrows #-}
   2
   3 module RCMA.Translator.Translator where
   4
   5 import FRP.Yampa
   6 import RCMA.Semantics
   7 import RCMA.Translator.Message
   8 import RCMA.Translator.SortMessage
   9
  10 -- Takes a stream of raw messages and translates them by type.
  11 fromRaw :: SF [(Frames, RawMessage)]
  12               ([(Frames, Note)], [(Frames, Controller)], [(Frames, RawMessage)])
  13 fromRaw = proc input -> do
  14   returnA -< undefined
  15
  16 -- Takes a stream of high level messages and translates them by type.
  17 toRaw :: SF (Note, Controller, RawMessage) RawMessage
  18 toRaw = undefined