diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-19 02:08:38 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-19 02:08:38 -0400 |
| commit | ae31991a203b01a9f3095e6b39f173deddc37134 (patch) | |
| tree | bf966e8bee12b6d306153ea7e65e81e8d1b586a4 | |
| parent | 709faf085ea5d889c110110bd53a059af5771339 (diff) | |
ye olde file read/write laziness bug
| -rw-r--r-- | Propellor/Property/Dns.hs | 2 |
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 |