{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
module Stack.Types.Nix where
import Control.Applicative
import Data.Aeson.Extended
import Data.Monoid
import Data.Text (Text)
data NixOpts = NixOpts
{nixEnable :: !Bool
,nixPackages :: ![Text]
,nixInitFile :: !(Maybe String)
,nixShellOptions :: ![Text]
}
deriving (Show)
data NixOptsMonoid = NixOptsMonoid
{nixMonoidDefaultEnable :: !Bool
,nixMonoidEnable :: !(Maybe Bool)
,nixMonoidPackages :: ![Text]
,nixMonoidInitFile :: !(Maybe String)
,nixMonoidShellOptions :: ![Text]
}
deriving (Show)
instance FromJSON (NixOptsMonoid, [JSONWarning]) where
parseJSON = withObjectWarnings "DockerOptsMonoid"
(\o -> do nixMonoidDefaultEnable <- pure True
nixMonoidEnable <- o ..:? nixEnableArgName
nixMonoidPackages <- o ..:? nixPackagesArgName ..!= []
nixMonoidInitFile <- o ..:? nixInitFileArgName
nixMonoidShellOptions <- o ..:? nixShellOptsArgName ..!= []
return NixOptsMonoid{..})
instance Monoid NixOptsMonoid where
mempty = NixOptsMonoid
{nixMonoidDefaultEnable = False
,nixMonoidEnable = Nothing
,nixMonoidPackages = []
,nixMonoidInitFile = Nothing
,nixMonoidShellOptions = []
}
mappend l r = NixOptsMonoid
{nixMonoidDefaultEnable = nixMonoidDefaultEnable l || nixMonoidDefaultEnable r
,nixMonoidEnable = nixMonoidEnable l <|> nixMonoidEnable r
,nixMonoidPackages = nixMonoidPackages l <> nixMonoidPackages r
,nixMonoidInitFile = nixMonoidInitFile l <|> nixMonoidInitFile r
,nixMonoidShellOptions = nixMonoidShellOptions l <> nixMonoidShellOptions r
}
nixEnableArgName :: Text
nixEnableArgName = "enable"
nixPackagesArgName :: Text
nixPackagesArgName = "packages"
nixInitFileArgName :: Text
nixInitFileArgName = "shell-file"
nixShellOptsArgName :: Text
nixShellOptsArgName = "nix-shell-options"