apis-0.0.0: src/Data/TH/Object.hs

{-# LANGUAGE MultiParamTypeClasses #-}

module Data.TH.Object
       ( Object(..) ) where

import Data.Map

class Object a k v where
  toObject :: a -> Map k v