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