From 8b16078e5eecdecc0ba0db64cb7b312032136ff3 Mon Sep 17 00:00:00 2001
From: Khudyakov Alexey <alexey.skladnoy@gmail.com>
Date: Sun, 18 Jan 2009 15:22:24 -0800
Subject: [PATCH] Fix for KOI8-R and KOI8-U encodings

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
---
 Data/Encoding/KOI8R.hs | 2 +-
 Data/Encoding/KOI8U.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Data/Encoding/KOI8R.hs b/Data/Encoding/KOI8R.hs
index 1a0ab39..f660401 100644
--- a/Data/Encoding/KOI8R.hs
+++ b/Data/Encoding/KOI8R.hs
@@ -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 =
diff --git a/Data/Encoding/KOI8U.hs b/Data/Encoding/KOI8U.hs
index fb4970d..36008bd 100644
--- a/Data/Encoding/KOI8U.hs
+++ b/Data/Encoding/KOI8U.hs
@@ -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 =