ye olde file read/write laziness bug

This commit is contained in:
Joey Hess 2014-04-19 02:08:38 -04:00
parent 709faf085e
commit ae31991a20
1 changed files with 1 additions and 1 deletions

View File

@ -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