fix: Always encode output as UTF-8 in cimplefmt.

cimple.cabal

@@ -69,7 +69,9 @@ executable cimplefmt
   main-is: cimplefmt.hs
   build-depends:
       base < 5
+    , bytestring
     , cimple
+    , text
 
 executable dump-ast
   default-language: Haskell2010

tools/BUILD.bazel

@@ -8,6 +8,8 @@ haskell_binary(
     deps = [
         "//hs-cimple",
         hazel_library("base"),
+        hazel_library("bytestring"),
+        hazel_library("text"),
     ],
 )
 

tools/cimplefmt.hs

@@ -1,5 +1,8 @@
 module Main (main) where
 
+import qualified Data.ByteString        as BS
+import qualified Data.Text              as Text
+import qualified Data.Text.Encoding     as Text
 import           Language.Cimple.IO     (parseFile)
 import           Language.Cimple.Pretty (ppTranslationUnit)
 import           System.Environment     (getArgs)
@@ -10,8 +13,15 @@ processFile source = do
     putStrLn $ "Processing " ++ source
     ast <- parseFile source
     case ast of
-        Left  err -> fail err
-        Right ok  -> print $ ppTranslationUnit $ snd ok
+        Left err -> fail err
+        Right ok ->
+            BS.putStr
+            . Text.encodeUtf8
+            . Text.pack
+            . show
+            . ppTranslationUnit
+            . snd
+            $ ok
 
 
 main :: IO ()