propellor

propellor config for hosts.
git clone git://git.ricketyspace.net/propellor.git
Log | Files | Refs | LICENSE

Bootloader.hs (749B)


      1 {-# LANGUAGE FlexibleInstances, DeriveDataTypeable #-}
      2 
      3 module Propellor.Types.Bootloader where
      4 
      5 import Propellor.Types
      6 import Propellor.Types.Info
      7 
      8 -- | Boot loader installed on a host.
      9 data BootloaderInstalled
     10 	= GrubInstalled GrubTarget
     11 	| FlashKernelInstalled
     12 	| UbootInstalled (FilePath -> FilePath -> Property Linux)
     13 	| NoBootloader
     14 	deriving (Typeable)
     15 
     16 -- | Platforms that grub can boot.
     17 data GrubTarget = PC | EFI64 | EFI32 | Coreboot | Xen
     18 
     19 instance Show BootloaderInstalled where
     20 	show (GrubInstalled _) = "GrubInstalled"
     21 	show FlashKernelInstalled = "FlashKernelInstalled"
     22 	show (UbootInstalled _) = "UbootInstalled"
     23 	show NoBootloader = "NoBootloader"
     24 
     25 instance IsInfo [BootloaderInstalled] where
     26 	propagateInfo _ = PropagateInfo False