{-# LANGUAGE NoImplicitPrelude #-}

module Stack.Options.UploadParser

( UploadOpts (..)

, UploadVariant (..)

, uploadOptsParser

) where

import Options.Applicative

import Stack.Options.SDistParser ( sdistOptsParser )

import Stack.Prelude

import Stack.SDist ( SDistOpts (..) )

data UploadOpts = UploadOpts

{ uoptsSDistOpts :: SDistOpts

, uoptsUploadVariant :: UploadVariant

-- ^ Says whether to publish the package or upload as a release candidate

}

data UploadVariant

= Publishing

-- ^ Publish the package

| Candidate

-- ^ Create a package candidate

-- | Parser for arguments to `stack upload`

uploadOptsParser :: Parser UploadOpts

uploadOptsParser =

UploadOpts

<$> sdistOptsParser

<*> uploadVariant

where

uploadVariant =

flag Publishing Candidate

(long "candidate" <>

help "Upload as a package candidate")