From e77ed1a26c91a0347ddff0a5ab7c31dde476dd52 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Tue, 17 Mar 2020 22:58:52 +0100
Subject: [PATCH] Fix printing of list results on FreeBSD

---
 app/ghcup/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs
index 3aabc1a..cd6594c 100644
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -32,6 +32,7 @@ import           Data.String.Interpolate
 import           Data.Text                      ( Text )
 import           Data.Versions
 import           Data.Void
+import           GHC.IO.Encoding
 import           Haskus.Utils.Variant.Excepts
 import           HPath
 import           HPath.IO
@@ -777,6 +778,9 @@ fromVersion av (Just (ToolTag Recommended)) tool =
 
 printListResult :: [ListResult] -> IO ()
 printListResult lr = do
+  -- https://gitlab.haskell.org/ghc/ghc/issues/8118
+  setLocaleEncoding utf8
+
   let
     formatted =
       gridString