@@ -20,6 +20,7 @@ import Data.IORef
2020import qualified Data.List as L
2121import Data.Maybe (isNothing)
2222import Data.Text (Text)
23+import GHC.IO.Encoding.Types
2324import System.Console.ANSI (Color (Blue, Cyan, Green, Red))
2425import System.IO (utf8, utf8_bom, utf16, utf16be, utf16le, utf32, utf32be, utf32le, TextEncoding)
2526
@@ -120,7 +121,7 @@ withSpinner' msg mkTrail action = do
120121 _ -> coloredSpinner minimalSpinnerTheme
121122
122123supportUnicode :: TextEncoding -> Bool
123−supportUnicode enc = any ((show enc ==) . show)
124+supportUnicode enc = any ((textEncodingName enc ==) . textEncodingName)
124125 [ utf8
125126 , utf8_bom
126127 , utf16