diff --git a/generateSealPosts.hs b/generateSealPosts.hs index 12a70c9..4755eec 100755 --- a/generateSealPosts.hs +++ b/generateSealPosts.hs @@ -126,9 +126,8 @@ allBlogPosts config = map f zippedDates writeToFile :: Config -> (FilePath, Text) -> IO() writeToFile config (fp, txt) = do - -- fileExists <- doesFileExist fp' - -- unless fileExists (write fp' txt) - write fp' txt + fileExists <- doesFileExist fp' + unless fileExists (write fp' txt) where write = TIO.writeFile fp' = postsOutputPath config <> "/" <> fp