{-# LANGUAGE DeriveDataTypeable #-}
module Hcompta.Format.JCC.Account where

import           Data.Data (Data(..))
import           Data.Eq (Eq(..))
import           Data.List.NonEmpty (NonEmpty(..))
import           Data.Text (Text)
import           Data.Typeable (Typeable)
import           Text.Show (Show)

import           Hcompta.Lib.Parsec ()
import           Hcompta.Lib.Regex (Regex)

-- * Type 'Account'

type Account_Section = Text
type Account = NonEmpty Account_Section
account :: Account_Section -> [Account_Section] -> Account
account = (:|)

-- ** Type 'Joker'

type Account_Joker
 = [Account_Joker_Section]
data Account_Joker_Section
 =   Account_Joker_Any
 |   Account_Joker_Section Text
 deriving (Data, Eq, Show, Typeable)

-- ** Type 'Pattern'

data Account_Pattern
 =   Account_Pattern_Exact Account
 |   Account_Pattern_Joker Account_Joker
 |   Account_Pattern_Regex Regex
 deriving (Show, Typeable)