cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Propellor/Property/Dns.hs
View File

@ -245,7 +245,7 @@ writeZonePropellorFile f z = writeFile (zonePropellorFile f) (show z)
readZonePropellorFile :: FilePath -> IO (Maybe Zone) readZonePropellorFile :: FilePath -> IO (Maybe Zone)
readZonePropellorFile f = catchDefaultIO Nothing $ readZonePropellorFile f = catchDefaultIO Nothing $
readish <$> readFile (zonePropellorFile f) readish <$> readFileStrict (zonePropellorFile f)
-- | Generating a zone file. -- | Generating a zone file.
genZoneFile :: Zone -> String genZoneFile :: Zone -> String