summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/Bootloader.hs
diff options
context:
space:
mode:
authorSean Whitton2017-11-19 12:04:26 -0700
committerSean Whitton2017-11-19 12:04:26 -0700
commit05e5308ee7cef99b24b4f9d9755e5488f8d92a39 (patch)
tree256b8f20bddf0f0701a3247228f9c2dd77be6e64 /src/Propellor/Types/Bootloader.hs
parent38d039310e4db6ffaf5c8ca51c339421e6865eff (diff)
parent12beba0367d14f9c52adf72dd36e9cf5a8e35761 (diff)
Merge branch 'master' of https://git.joeyh.name/git/propellor into sbuild-overhaul
Diffstat (limited to 'src/Propellor/Types/Bootloader.hs')
-rw-r--r--src/Propellor/Types/Bootloader.hs13
1 files changed, 11 insertions, 2 deletions
diff --git a/src/Propellor/Types/Bootloader.hs b/src/Propellor/Types/Bootloader.hs
index 4a75503a..fd929d7e 100644
--- a/src/Propellor/Types/Bootloader.hs
+++ b/src/Propellor/Types/Bootloader.hs
@@ -2,11 +2,20 @@
module Propellor.Types.Bootloader where
+import Propellor.Types
import Propellor.Types.Info
-- | Boot loader installed on a host.
-data BootloaderInstalled = GrubInstalled
- deriving (Typeable, Show)
+data BootloaderInstalled
+ = GrubInstalled
+ | FlashKernelInstalled
+ | UbootInstalled (FilePath -> FilePath -> Property Linux)
+ deriving (Typeable)
+
+instance Show BootloaderInstalled where
+ show GrubInstalled = "GrubInstalled"
+ show FlashKernelInstalled = "FlashKernelInstalled"
+ show (UbootInstalled _) = "UbootInstalled"
instance IsInfo [BootloaderInstalled] where
propagateInfo _ = PropagateInfo False