Reactogon/Translator/Translator.hs

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