{-# LANGUAGE OverloadedStrings, TemplateHaskell #-}
module Ham.Internal.Log.V3
where
import Ham.Internal.Qso
import Ham.Qso
import qualified Ham.CAT as CAT
import Data.Text
import Data.Time.Calendar
import Data.Time.Clock
import Data.Sequence
import Data.Aeson
import Data.Aeson.TH
import Lens.Micro.TH
data LogConfigV3 = LogConfigV3 {
_configLogFile :: FilePath
, _configQsoDefaults :: QsoDefaults
, _configUseCat :: Bool
, _configCat :: CAT.CATConfig
} deriving Show
$(deriveJSON defaultOptions ''LogConfigV3)
makeLenses ''LogConfigV3