module Stack.Types.Nix where
import Control.Applicative
import Data.Aeson.Extended
import Data.Text (Text)
import Data.Monoid
import Prelude
import Stack.Types.Compiler (CompilerVersion)
import Stack.Types.Config (Resolver)
import Text.Show.Functions ()
data NixOpts = NixOpts
{nixEnable :: !Bool
,nixPureShell :: !Bool
,nixPackages :: ![Text]
,nixInitFile :: !(Maybe FilePath)
,nixShellOptions :: ![Text]
,nixCompiler :: !(Maybe Resolver -> Maybe CompilerVersion -> Text)
}
deriving (Show)
data NixOptsMonoid = NixOptsMonoid
{nixMonoidDefaultEnable :: !Bool
,nixMonoidEnable :: !(Maybe Bool)
,nixMonoidPureShell :: !(Maybe Bool)
,nixMonoidPackages :: !(Maybe [Text])
,nixMonoidInitFile :: !(Maybe FilePath)
,nixMonoidShellOptions :: !(Maybe [Text])
,nixMonoidPath :: !(Maybe [Text])
}
deriving (Eq, Show)
instance FromJSON (NixOptsMonoid, [JSONWarning]) where
parseJSON = withObjectWarnings "NixOptsMonoid"
(\o -> do nixMonoidDefaultEnable <- pure True
nixMonoidEnable <- o ..:? nixEnableArgName
nixMonoidPureShell <- o ..:? nixPureShellArgName
nixMonoidPackages <- o ..:? nixPackagesArgName
nixMonoidInitFile <- o ..:? nixInitFileArgName
nixMonoidShellOptions <- o ..:? nixShellOptsArgName
nixMonoidPath <- o ..:? nixPathArgName
return NixOptsMonoid{..})
instance Monoid NixOptsMonoid where
mempty = NixOptsMonoid
{nixMonoidDefaultEnable = False
,nixMonoidEnable = Nothing
,nixMonoidPureShell = Nothing
,nixMonoidPackages = Nothing
,nixMonoidInitFile = Nothing
,nixMonoidShellOptions = Nothing
,nixMonoidPath = Nothing
}
mappend l r = NixOptsMonoid
{nixMonoidDefaultEnable = nixMonoidDefaultEnable l || nixMonoidDefaultEnable r
,nixMonoidEnable = nixMonoidEnable l <|> nixMonoidEnable r
,nixMonoidPureShell = nixMonoidPureShell l <|> nixMonoidPureShell r
,nixMonoidPackages = nixMonoidPackages l <|> nixMonoidPackages r
,nixMonoidInitFile = nixMonoidInitFile l <|> nixMonoidInitFile r
,nixMonoidShellOptions = nixMonoidShellOptions l <|> nixMonoidShellOptions r
,nixMonoidPath = nixMonoidPath l <|> nixMonoidPath r
}
nixEnableArgName :: Text
nixEnableArgName = "enable"
nixPureShellArgName :: Text
nixPureShellArgName = "pure"
nixPackagesArgName :: Text
nixPackagesArgName = "packages"
nixInitFileArgName :: Text
nixInitFileArgName = "shell-file"
nixShellOptsArgName :: Text
nixShellOptsArgName = "nix-shell-options"
nixPathArgName :: Text
nixPathArgName = "path"