summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2015-10-23 11:32:49 -0400
committerJoey Hess2015-10-23 11:32:49 -0400
commit27635a19c9d9ff654b95e5685a19661272732dd6 (patch)
treecb8e45bd8177712dc0bf3e5ad00f8b71cdd788af /src/Propellor
parent04209e7763547af4fa3527cb9e5e7d0d964edb97 (diff)
propellor spin
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Property/DiskImage.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs
index f1f2f79e..56ee2a8c 100644
--- a/src/Propellor/Property/DiskImage.hs
+++ b/src/Propellor/Property/DiskImage.hs
@@ -324,7 +324,8 @@ imageFinalized (_, final) mnts devs (PartTable _ parts) =
writefstab top = do
old <- catchDefaultIO "" $ readFileStrict "/etc/fstab"
- new <- genFstab (catMaybes mnts) swaps (toSysDir top)
+ new <- genFstab (map (top ++) (catMaybes mnts))
+ swaps (toSysDir top)
writeFile "/etc/fstab" (unlines new ++ old)
swaps = map (SwapPartition . partitionLoopDev . snd) $
filter ((== LinuxSwap) . partFs . fst) $