summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/DiskImage.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property/DiskImage.hs')
-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) $