module Unused.CLI.ProgressIndicator.Types
    ( ProgressIndicator(..)
    ) where

import qualified Control.Concurrent as CC
import qualified System.Console.ANSI as ANSI
import qualified System.ProgressBar as PB

data ProgressIndicator
    = Spinner { sSnapshots :: [String]
              , sLength :: Int
              , sDelay :: Int
              , sColors :: [ANSI.Color]
              , sThreadId :: Maybe CC.ThreadId }
    | ProgressBar { pbProgressRef :: Maybe PB.ProgressRef
                  , pbThreadId :: Maybe CC.ThreadId }