src/Literate/Accounting/PlanComptableGénéral/PCG.hs

   1 {-# LANGUAGE DeriveAnyClass #-}
   2
   3 module Literate.Accounting.PlanComptableGénéral.PCG where
   4
   5 import Literate.Prelude
   6
   7 data PCG = PCG
   8   { pcgId :: PCGId
   9   , pcgParent :: Maybe PCGId
  10   , pcgSystem :: PCGSystem
  11   , pcgDescription :: ShortText
  12   }
  13   deriving (Eq, Ord, Show, Generic, NFData)
  14
  15 newtype PCGId = PCGId Natural
  16   deriving (Eq, Ord, Show, Generic)
  17   deriving newtype (NFData)
  18
  19 data PCGSystem
  20   = PCGSystemCondensed
  21   | PCGSystemBase
  22   | PCGSystemDeveloped
  23   deriving (Eq, Ord, Show, Generic, NFData)