diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-12-28 14:31:43 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-12-28 14:31:43 -0400 |
| commit | 2c961e4a386087c662eec3dc389b7a894e13942d (patch) | |
| tree | 2e503f8c05b6a131f089c85ba64cec7fe4c134d4 | |
| parent | 520ae54bf907e226234cd50c275375eab6ba2ba7 (diff) | |
fix build
| -rw-r--r-- | Build/EvilSplicer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index 32d9a1c9f..4e7b1c9bf 100644 --- a/Build/EvilSplicer.hs +++ b/Build/EvilSplicer.hs @@ -203,10 +203,10 @@ applySplices _ _ [] = noop applySplices destdir imports splices@(first:_) = do let f = splicedFile first let dest = (destdir </> f) - lls <- map (++ "\n") . lines <$> readFileStrictAnyEncoding f + lls <- map (++ "\n") . lines <$> readFileStrict f createDirectoryIfMissing True (parentDir dest) let newcontent = concat $ addimports $ expand lls splices - oldcontent <- catchMaybeIO $ readFileStrictAnyEncoding dest + oldcontent <- catchMaybeIO $ readFileStrict dest when (oldcontent /= Just newcontent) $ do putStrLn $ "splicing " ++ f withFile dest WriteMode $ \h -> do |