module Hledger.Flow.Report.Types
where

import Turtle
import Prelude hiding (FilePath, putStrLn)
import Hledger.Flow.Types

data ReportOptions = ReportOptions { baseDir :: FilePath, verbose :: Bool, sequential :: Bool }
  deriving (Show)

instance HasVerbosity ReportOptions where
  verbose (ReportOptions _ v _) = v

instance HasBaseDir ReportOptions where
  baseDir (ReportOptions bd _ _) = bd