Reactogon/Translator/Translator.hs

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