hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix printing of list results on FreeBSD

Browse Source
This commit is contained in:
Julian Ospald 2020-03-17 22:58:52 +01:00
parent c0c70f5c9b
commit e77ed1a26c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/ghcup/Main.hs
View File

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