Reactogon/Translator/Translator.hs

   1 module Reactogon.Translator.Translator where
   2
   3 import Reactogon.Translator.Message
   4 import Reactogon.Semantics
   5
   6 -- Takes a stream of raw messages and translates them by type.
   7 fromRaw :: SF RawMessage (Note, SystemMessage, RawMessage)
   8 fromRaw = undefined
   9
  10 -- Takes a stream of high level messages and translates them by type.
  11 toRaw :: SF (Note, SystemMessage, RawMessage) RawMessage
  12 toRaw = undefined