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

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

instance CompatibleValues a a where
  convertValue :: a -> a
convertValue = a -> a
forall a. a -> a
id