@@ -92,9 +92,9 @@ reserveTerminal variant outFd = liftIO $ do
92utf8Active :: IO Bool
92utf8Active :: IO Bool
93utf8Active = do
93utf8Active = do
94 let vars = ["LC_ALL", "LANG", "LC_CTYPE"]
94 let vars = ["LC_ALL", "LANG", "LC_CTYPE"]
95− results <- catMaybes <$> mapM getEnv vars
95+ results <- map (toLower <$>) . catMaybes <$> mapM getEnv vars
96− let matches = filter ("UTF8" `isInfixOf`) results <>
96+ let matches = filter ("utf8" `isInfixOf`) results <>
97− filter ("UTF-8" `isInfixOf`) results
97+ filter ("utf-8" `isInfixOf`) results
98 return $ not $ null matches
98 return $ not $ null matches
100-- | Enable bracketed paste mode:
100-- | Enable bracketed paste mode: