From e8a9b3cb7e7f8a5aef7662345bfb2fd17dc1ebc7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Dec 2016 14:31:43 -0400 Subject: [PATCH] fix build --- Build/EvilSplicer.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index 32d9a1c9fb..4e7b1c9bfe 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