lib/Hcompta/Unit.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2 module Hcompta.Unit where
   3
   4 import Data.Function (id)
   5 import Data.Text (Text)
   6
   7 class Unit u where
   8         unit_empty :: u
   9         unit_text  :: u -> Text
  10 instance Unit Text where
  11         unit_empty = ""
  12         unit_text  = id