--- | Run a 'String' through the filesystem to convert it to a
--- 'ByteString' in the stupidest way possible.
-string_to_bytestring :: String -> IO B.ByteString
-string_to_bytestring s = do
- dir <- getTemporaryDirectory
- (path, h) <- openTempFile dir "nu1Uideehe"
- hSetEncoding h utf8
- hPutStr h s
- hClose h
- result <- B.readFile path
- removeFile path
- return result