{-# LANGUAGE OverloadedStrings #-}
module Hcompta.Unit where

import           Data.Data
import           Data.Ord (Ord)
import           Data.Text (Text)
import           Prelude (id)
import           Text.Show (Show)

class
 ( Data u
 , Ord  u
 , Show u
 ) => Unit u where
	unit_empty :: u
	unit_text  :: u -> Text
instance Unit Text where
	unit_empty = ""
	unit_text  = id