src/GF/Text/Coding.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module GF.Text.Coding where

import GF.Text.UTF8
import GF.Text.CP1251

encodeUnicode e = case e of
  "utf8"   -> encodeUTF8
  "cp1251" -> encodeCP1251
  _        -> id

decodeUnicode e = case e of
  "utf8"   -> decodeUTF8
  "cp1251" -> decodeCP1251
  _        -> id