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

[git at git.haskell.org]

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

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

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

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

    Hack: Produce latin1 asm output


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

e53dc5befb7ad2329c5aa7bffa4274b990104981
 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 7802dcc..7490d94 100644
--- a/compiler/nativeGen/AsmCodeGen.hs
+++ b/compiler/nativeGen/AsmCodeGen.hs
@@ -98,7 +98,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
@@ -330,6 +330,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