factor out utility function

1 files changed, 7 insertions, 0 deletions

diff --git a/Utility/Misc.hs b/Utility/Misc.hs
index b93b772a9..20007adad 100644
--- a/Utility/Misc.hs
+++ b/Utility/Misc.hs
@@ -40,6 +40,13 @@ readFileStrictAnyEncoding f = withFile f ReadMode $ \h -> do
 	fileEncoding h
 	hClose h `after` hGetContentsStrict h
 
+{- Writes a file, using the FileSystemEncoding so it will never crash
+ - on a badly encoded content string. -}
+writeFileAnyEncoding :: FilePath -> String -> IO ()
+writeFileAnyEncoding f content = withFile f WriteMode $ \h -> do
+	fileEncoding h
+	hPutStr h content
+
 {- Like break, but the item matching the condition is not included
  - in the second result list.
  -