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

import Data.Function (id)
import Data.Text (Text)

class Unit u where
	unit_empty :: u
	unit_text  :: u -> Text
instance Unit Text where
	unit_empty = ""
	unit_text  = id