summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/ZFS.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Types/ZFS.hs')
-rw-r--r--src/Propellor/Types/ZFS.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Propellor/Types/ZFS.hs b/src/Propellor/Types/ZFS.hs
index 3ce4b22c..42ff74ec 100644
--- a/src/Propellor/Types/ZFS.hs
+++ b/src/Propellor/Types/ZFS.hs
@@ -6,6 +6,8 @@
module Propellor.Types.ZFS where
+import Propellor.Types.ConfigurableValue
+
import Data.String
import qualified Data.Set as Set
import qualified Data.String.Utils as SU
@@ -37,8 +39,11 @@ fromPropertyList props =
zfsName :: ZFS -> String
zfsName (ZFS (ZPool pool) dataset) = intercalate "/" [pool, show dataset]
+instance ConfigurableValue ZDataset where
+ val (ZDataset paths) = intercalate "/" paths
+
instance Show ZDataset where
- show (ZDataset paths) = intercalate "/" paths
+ show = val
instance IsString ZDataset where
fromString s = ZDataset $ SU.split "/" s