From 878e7471fa09dcc36b478e1ac1fd305d5a90b7bf Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 24 Feb 2014 19:40:14 -0400
Subject: merge from git-annex

---
 Utility/Misc.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'Utility/Misc.hs')

diff --git a/Utility/Misc.hs b/Utility/Misc.hs
index 68199c8..20007ad 100644
--- a/Utility/Misc.hs
+++ b/Utility/Misc.hs
@@ -33,13 +33,20 @@ hGetContentsStrict = hGetContents >=> \s -> length s `seq` return s
 readFileStrict :: FilePath -> IO String
 readFileStrict = readFile >=> \s -> length s `seq` return s
 
-{-  Reads a file strictly, and using the FileSystemEncofing, so it will
+{-  Reads a file strictly, and using the FileSystemEncoding, so it will
  -  never crash on a badly encoded file. -}
 readFileStrictAnyEncoding :: FilePath -> IO String
 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.
  -
-- 
cgit v1.2.3