hix-0.7.0: lib/Hix/Managed/Data/LowerConfig.hs

module Hix.Managed.Data.LowerConfig where

import qualified Hix.Data.Options
import Hix.Data.Options (LowerOptions (LowerOptions))

data LowerConfig =
  LowerConfig {
    initOnly :: Bool,
    reset :: Bool,
    stabilize :: Bool
  }
  deriving stock (Eq, Show, Generic)

lowerConfig :: LowerOptions -> LowerConfig
lowerConfig LowerOptions {..} =
  LowerConfig {..}

instance Default LowerConfig where
  def =
    LowerConfig {
      initOnly = False,
      reset = False,
      stabilize = False
    }