Поддержка Юникода System.Directory.getDirectoryContents

Следующий код печатает что-то вроде °Ð½Ð´Ð¸Ñ-ÐÑпаниÑ

getDirectoryContents "path/to/directory/that/contains/files/with/nonASCII/names"
  >>= mapM_ putStrLn

Похоже, это ошибка ghc, и она уже исправлена ​​в репозитории. Но что делать, пока все не обновят ghc?

В последний раз, когда я столкнулся с такой проблемой (это было несколько лет назад, кстати), я использовал пакет utf8-string для преобразования строк, но я не помню, как я это сделал, и поддержка юникода ghc заметно изменилась в последние годы.

Итак, каков наилучший (или, по крайней мере, рабочий) способ получить содержимое каталога с полной поддержкой юникода?

ghc версии 7.0.4 языковой стандарт en_US.UTF-8


unicode haskell ghc
person Yuras    schedule 24.07.2011    source источник

Ответы (2)


arrow_upward
5
arrow_downward

Вот простой обходной путь с использованием decodeString и encodeString из utf8-string< /а>.

import System.Directory
import qualified Codec.Binary.UTF8.String as UTF8

main = do
   getDirectoryContents "." >>= mapM_ (putStrLn . UTF8.decodeString)
   putStrLn "------------"
   readFile (UTF8.encodeString "brøken-file-nåme.txt") >>= putStrLn

Выход:

.
..
brøken-file-nåme.txt
Broken.hs
------------
hello
person hammar    schedule 24.07.2011
comment
@Yuras: Насколько я понял, base будет само преобразование UTF8, поэтому вы можете использовать условную компиляцию для удаления преобразования при использовании соответствующей версии base. - person hammar; 24.07.2011

arrow_upward
3
arrow_downward

Я бы рекомендовал взглянуть на system-filepath, который предоставляет абстрактный тип данных для представления путей к файлам. Я широко использовал его для некоторого внутреннего кода, и он прекрасно работает.

person Michael Snoyman    schedule 24.07.2011
comment
Благодарю. это как fixName = encodeString . fromText . T.pack - person max taldykin; 18.02.2012