{-# LANGUAGE DeriveAnyClass #-}

module Literate.Accounting.PlanComptableGénéral.PCG where

import Literate.Prelude

data PCG = PCG
  { pcgId :: PCGId
  , pcgParent :: Maybe PCGId
  , pcgSystem :: PCGSystem
  , pcgDescription :: ShortText
  }
  deriving (Eq, Ord, Show, Generic, NFData)

newtype PCGId = PCGId Natural
  deriving (Eq, Ord, Show, Generic)
  deriving newtype (NFData)
instance FromInteger PCGId where
  fromInteger = PCGId . fromInteger

data PCGSystem
  = PCGSystemCondensed
  | PCGSystemBase
  | PCGSystemDeveloped
  deriving (Eq, Ord, Show, Generic, NFData)