]> Git — Sourcephile - comptalang.git/blob - lib/Hcompta/Unit.hs
Cleanup hcompta-lib.
[comptalang.git] / 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