haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix for KOI8-R and KOI8-U encodings

Browse Source 
Characters which should be encoded in [128..255] range were encoded into
[0..127] range.
** END OF DESCRIPTION***

Place the long patch description above the ***END OF DESCRIPTION*** marker.
The first line of this file will be the patch name.

This patch contains the following changes:

M ./Data/Encoding/KOI8R.hs -1 +1
M ./Data/Encoding/KOI8U.hs -1 +1

darcs-hash:20090118232224-7ba7e-c685a571f6ac9a9ca78725a80040e842f4a7e5a7
This commit is contained in:
Khudyakov Alexey 2009-01-18 15:22:24 -08:00
parent 2b9f9a87de
commit 8b16078e5e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data/Encoding/KOI8R.hs
View File

@ -22,7 +22,7 @@ koi8rArr :: UArray Word8 Char
koi8rArr = listArray (128,255) koi8rList
koi8rMap :: Map Char Word8
koi8rMap = fromList (zip koi8rList [0..])
koi8rMap = fromList (zip koi8rList [128..])
koi8rList :: [Char]
koi8rList =

2
Data/Encoding/KOI8U.hs
View File

@ -21,7 +21,7 @@ koi8uArr :: UArray Word8 Char
koi8uArr = listArray (128,255) koi8uList
koi8uMap :: Map Char Word8
koi8uMap = fromList (zip koi8uList [0..])
koi8uMap = fromList (zip koi8uList [128..])
koi8uList :: [Char]
koi8uList =