Value.hs

module Blucontrol.Value (
  CompatibleValues (..)
) where

class CompatibleValues a b where
    convertValue :: a -> b

instance CompatibleValues a a where
  convertValue = id