{-# LANGUAGE FlexibleInstances, TypeSynonymInstances #-} 

module OscType where

import Sound.OpenSoundControl

class OscType a where
    toDatum :: a -> Datum

instance OscType Double where
    toDatum = Float

instance OscType Float where
    toDatum = Float . realToFrac

instance OscType String where
    toDatum = String

instance OscType Int where
    toDatum = Int