1 {-# LANGUAGE Arrows #-}
3 module RCMA.Translator.Translator where
7 import RCMA.Translator.Message
8 import RCMA.Translator.SortMessage
10 -- Takes a stream of raw messages and translates them by type.
11 fromRaw :: SF RawMessage (Note, Controller, RawMessage)
14 -- Takes a stream of high level messages and translates them by type.
15 toRaw :: SF (Note, Controller, RawMessage) RawMessage