[commit: ghc] wip/prettyprinter: Hack: Produce latin1 asm output (55a1d46)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/prettyprinter
Link       : http://ghc.haskell.org/trac/ghc/changeset/55a1d46a07c871efb802af80ce0e63a8923ff05d/ghc

>---------------------------------------------------------------

commit 55a1d46a07c871efb802af80ce0e63a8923ff05d
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Fri Jul 21 14:28:57 2017 -0400

    Hack: Produce latin1 asm output


>---------------------------------------------------------------

55a1d46a07c871efb802af80ce0e63a8923ff05d
 compiler/nativeGen/AsmCodeGen.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/nativeGen/AsmCodeGen.hs b/compiler/nativeGen/AsmCodeGen.hs
index b91181c..0468135 100644
--- a/compiler/nativeGen/AsmCodeGen.hs
+++ b/compiler/nativeGen/AsmCodeGen.hs
@@ -100,7 +100,7 @@ import Data.Maybe
 import Data.Ord         ( comparing )
 import Control.Exception
 import Control.Monad
-import System.IO (Handle)
+import System.IO
 
 {-
 The native-code generator has machine-independent and
@@ -332,6 +332,7 @@ nativeCodeGen' :: (Outputable statics, Outputable instr, Instruction instr)
                -> IO UniqSupply
 nativeCodeGen' dflags this_mod modLoc ncgImpl h us cmms
  = do
+        hSetEncoding h latin1
         let ngs0 = NGS [] [] [] [] [] [] emptyUFM mapEmpty
         (ngs, us') <- cmmNativeGenStream dflags this_mod modLoc ncgImpl h us
                                          cmms ngs0