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

    import Prelude (Eq, Show)

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