asif-2.0.0: app/App/Commands/Options/Type.hs

{-# LANGUAGE DeriveGeneric         #-}
{-# LANGUAGE DuplicateRecordFields #-}

module App.Commands.Options.Type where

import GHC.Generics

data EncodeFilesOptions = EncodeFilesOptions
  { source   :: FilePath
  , target   :: FilePath
  , asifType :: String
  } deriving (Eq, Show, Generic)

data ExtractFilesOptions = ExtractFilesOptions
  { source :: FilePath
  , target :: FilePath
  } deriving (Eq, Show, Generic)

data ExtractSegmentsOptions = ExtractSegmentsOptions
  { source :: FilePath
  , target :: FilePath
  } deriving (Eq, Show, Generic)

data DumpOptions = DumpOptions
  { source :: FilePath
  , target :: FilePath
  } deriving (Eq, Show, Generic)