4 import qualified Data.ByteString.Lazy as B (ByteString, readFile)
5 import System.Directory (getTemporaryDirectory, removeFile)
6 import System.IO (hClose, hPutStr, hSetEncoding, openTempFile, utf8)
8 -- | Run a 'String' through the filesystem to convert it to a
9 -- 'ByteString' in the stupidest way possible.
10 string_to_bytestring :: String -> IO B.ByteString
11 string_to_bytestring s = do
12 dir <- getTemporaryDirectory
13 (path, h) <- openTempFile dir "nu1Uideehe"
17 result <- B.readFile path