summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/PartSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Types/PartSpec.hs')
-rw-r--r--src/Propellor/Types/PartSpec.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Propellor/Types/PartSpec.hs b/src/Propellor/Types/PartSpec.hs
index 860b38f6..c6f9aa7a 100644
--- a/src/Propellor/Types/PartSpec.hs
+++ b/src/Propellor/Types/PartSpec.hs
@@ -6,3 +6,9 @@ import Propellor.Property.Mount
-- | Specifies a mount point, mount options, and a constructor for a
-- Partition that determines its size.
type PartSpec t = (Maybe MountPoint, MountOpts, PartSize -> Partition, t)
+
+-- | Specifies a partition table.
+data PartTableSpec = PartTableSpec TableType [PartSpec ()]
+
+instance Show PartTableSpec where
+ show (PartTableSpec tt _) = "PartTableSpec " ++ show tt