diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/DiskImage.hs | 2 |
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 |