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

import Control.Concurrent (ThreadId)
import System.ProgressBar (ProgressRef)
import System.Console.ANSI (Color)

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