propellor

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

Types.hs (562B)


      1 module Propellor.Property.Installer.Types where
      2 
      3 -- | The disk device to install to.
      4 newtype TargetDiskDevice = TargetDiskDevice FilePath
      5 	deriving (Read, Show)
      6 
      7 data DiskEraseConfirmed = DiskEraseConfirmed
      8 	deriving (Read, Show)
      9 
     10 -- | Class of user input that an installer might prompt for.
     11 class UserInput i where
     12 	-- | Get the disk device the user selected to install to.
     13 	targetDiskDevice :: i -> Maybe TargetDiskDevice
     14 	-- | Check if the user has confirmed they want to erase the target
     15 	-- disk device.
     16 	diskEraseConfirmed :: i -> Maybe DiskEraseConfirmed