summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/DiskImage.hs
diff options
context:
space:
mode:
authorJoey Hess2017-07-27 09:17:25 -0400
committerJoey Hess2017-07-27 09:17:25 -0400
commit5faa18a5b7b166c420423e587b595d25a539a52d (patch)
tree35cd9ffd3f174ef645a6483b3f983c4d8329bb43 /src/Propellor/Property/DiskImage.hs
parent14356c3679e3450aedb84a75f222b568c70645e3 (diff)
DiskImage: Fix strictness bug in .parttable read/write sequence.
Diffstat (limited to 'src/Propellor/Property/DiskImage.hs')
-rw-r--r--src/Propellor/Property/DiskImage.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Propellor/Property/DiskImage.hs b/src/Propellor/Property/DiskImage.hs
index 55ccad76..c68a99e6 100644
--- a/src/Propellor/Property/DiskImage.hs
+++ b/src/Propellor/Property/DiskImage.hs
@@ -284,7 +284,7 @@ imageExists' img parttable = (setup <!> cleanup) `describe` desc
desc = "disk image exists " ++ img
parttablefile = img ++ ".parttable"
setup = property' desc $ \w -> do
- oldparttable <- liftIO $ catchDefaultIO "" $ readFile parttablefile
+ oldparttable <- liftIO $ catchDefaultIO "" $ readFileStrict parttablefile
res <- ensureProperty w $ imageExists img (partTableSize parttable)
if res == NoChange && oldparttable == show parttable
then return NoChange