summaryrefslogtreecommitdiff
path: root/Propellor/Property
diff options
context:
space:
mode:
authorJoey Hess2014-04-19 02:08:38 -0400
committerJoey Hess2014-04-19 02:08:38 -0400
commitae31991a203b01a9f3095e6b39f173deddc37134 (patch)
treebf966e8bee12b6d306153ea7e65e81e8d1b586a4 /Propellor/Property
parent709faf085ea5d889c110110bd53a059af5771339 (diff)
ye olde file read/write laziness bug
Diffstat (limited to 'Propellor/Property')
-rw-r--r--Propellor/Property/Dns.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Propellor/Property/Dns.hs b/Propellor/Property/Dns.hs
index 19844650..0708417d 100644
--- a/Propellor/Property/Dns.hs
+++ b/Propellor/Property/Dns.hs
@@ -245,7 +245,7 @@ writeZonePropellorFile f z = writeFile (zonePropellorFile f) (show z)
readZonePropellorFile :: FilePath -> IO (Maybe Zone)
readZonePropellorFile f = catchDefaultIO Nothing $
- readish <$> readFile (zonePropellorFile f)
+ readish <$> readFileStrict (zonePropellorFile f)
-- | Generating a zone file.
genZoneFile :: Zone -> String