{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE NoFieldSelectors #-}
module Stack.Types.UpgradeOpts
( UpgradeOpts (..)
, BinaryOpts (..)
, SourceOpts (..)
) where
import Stack.Prelude
data UpgradeOpts = UpgradeOpts
{ UpgradeOpts -> Maybe BinaryOpts
binary :: !(Maybe BinaryOpts)
, UpgradeOpts -> Maybe SourceOpts
source :: !(Maybe SourceOpts)
}
deriving Int -> UpgradeOpts -> ShowS
[UpgradeOpts] -> ShowS
UpgradeOpts -> String
(Int -> UpgradeOpts -> ShowS)
-> (UpgradeOpts -> String)
-> ([UpgradeOpts] -> ShowS)
-> Show UpgradeOpts
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> UpgradeOpts -> ShowS
showsPrec :: Int -> UpgradeOpts -> ShowS
$cshow :: UpgradeOpts -> String
show :: UpgradeOpts -> String
$cshowList :: [UpgradeOpts] -> ShowS
showList :: [UpgradeOpts] -> ShowS
Show
data BinaryOpts = BinaryOpts
{ BinaryOpts -> Maybe String
platform :: !(Maybe String)
, BinaryOpts -> Bool
force :: !Bool
, BinaryOpts -> Bool
onlyLocalBin :: !Bool
, BinaryOpts -> Maybe String
version :: !(Maybe String)
, BinaryOpts -> Maybe String
gitHubOrg :: !(Maybe String)
, BinaryOpts -> Maybe String
gitHubRepo :: !(Maybe String)
}
deriving Int -> BinaryOpts -> ShowS
[BinaryOpts] -> ShowS
BinaryOpts -> String
(Int -> BinaryOpts -> ShowS)
-> (BinaryOpts -> String)
-> ([BinaryOpts] -> ShowS)
-> Show BinaryOpts
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> BinaryOpts -> ShowS
showsPrec :: Int -> BinaryOpts -> ShowS
$cshow :: BinaryOpts -> String
show :: BinaryOpts -> String
$cshowList :: [BinaryOpts] -> ShowS
showList :: [BinaryOpts] -> ShowS
Show
newtype SourceOpts
= SourceOpts (Maybe (String, String))
deriving Int -> SourceOpts -> ShowS
[SourceOpts] -> ShowS
SourceOpts -> String
(Int -> SourceOpts -> ShowS)
-> (SourceOpts -> String)
-> ([SourceOpts] -> ShowS)
-> Show SourceOpts
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SourceOpts -> ShowS
showsPrec :: Int -> SourceOpts -> ShowS
$cshow :: SourceOpts -> String
show :: SourceOpts -> String
$cshowList :: [SourceOpts] -> ShowS
showList :: [SourceOpts] -> ShowS
Show