src/Symantic/Compta/Data.hs

   1 {-# LANGUAGE AllowAmbiguousTypes #-}
   2 {-# LANGUAGE ConstraintKinds #-}
   3 {-# LANGUAGE DataKinds #-}
   4 {-# LANGUAGE FlexibleContexts #-}
   5 {-# LANGUAGE GADTs #-}
   6 {-# LANGUAGE KindSignatures #-}
   7 {-# LANGUAGE MultiParamTypeClasses #-}
   8 {-# LANGUAGE TypeFamilies #-}
   9 {-# LANGUAGE TupleSections #-}
  10 {-# LANGUAGE UndecidableInstances #-}
  11 {-# LANGUAGE OverloadedStrings #-}
  12 {-# OPTIONS_GHC -Wno-missing-signatures #-}
  13 module Symantic.Compta.Data where
  14 import Data.String
  15 import Data.Decimal
  16 import Data.Map.Strict (Map)
  17
  18 newtype Unit = Unit String
  19 newtype Quantity = Quantity Decimal
  20 data Amounts = Map Unit Quantity
  21 --data Postings = Postings [String]
  22 --data Transaction