]> Git — Sourcephile - tmp/julm/arpeggigon.git/blob - RCMA/Translator/Translator.hs
Moved Reactogon to RCMA.
[tmp/julm/arpeggigon.git] / RCMA / 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