module Distribution.Solver.Types.Flag
    ( FlagType(..)
    ) where

import Prelude (Eq, Show)

data FlagType = Manual | Automatic
  deriving (FlagType -> FlagType -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FlagType -> FlagType -> Bool
$c/= :: FlagType -> FlagType -> Bool
== :: FlagType -> FlagType -> Bool
$c== :: FlagType -> FlagType -> Bool
Eq, Int -> FlagType -> ShowS
[FlagType] -> ShowS
FlagType -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FlagType] -> ShowS
$cshowList :: [FlagType] -> ShowS
show :: FlagType -> String
$cshow :: FlagType -> String
showsPrec :: Int -> FlagType -> ShowS
$cshowsPrec :: Int -> FlagType -> ShowS
Show)