Value.hs

{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies #-}

module Data.Geo.Accessor.Value where

class Value a b | a -> b where
  value :: a -> b