1 {-# LANGUAGE AllowAmbiguousTypes #-}
2 {-# LANGUAGE ConstraintKinds #-}
3 {-# LANGUAGE DataKinds #-}
4 {-# LANGUAGE FlexibleContexts #-}
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
16 import Data.Map.Strict (Map)
18 newtype Unit = Unit String
19 newtype Quantity = Quantity Decimal
20 data Amounts = Map Unit Quantity
21 --data Postings = Postings [String]