module Propellor.Types.Bootloader where
import Propellor.Types
import Propellor.Types.Info
data BootloaderInstalled
= GrubInstalled GrubTarget
| FlashKernelInstalled
| UbootInstalled (FilePath -> FilePath -> Property Linux)
deriving (Typeable)
data GrubTarget = PC | EFI64 | EFI32 | Coreboot | Xen
instance Show BootloaderInstalled where
show (GrubInstalled _) = "GrubInstalled"
show FlashKernelInstalled = "FlashKernelInstalled"
show (UbootInstalled _) = "UbootInstalled"
instance IsInfo [BootloaderInstalled] where
propagateInfo _ = PropagateInfo False