src/GF/Text/Coding.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

module GF.Text.Coding where

import GF.Text.UTF8
import GF.Text.CP1250
import GF.Text.CP1251
import GF.Text.CP1252

encodeUnicode e = case e of
  "utf8"   -> encodeUTF8
  "cp1250" -> encodeCP1250
  "cp1251" -> encodeCP1251
  "cp1252" -> encodeCP1252
  _        -> id

decodeUnicode e = case e of
  "utf8"   -> decodeUTF8
  "cp1250" -> decodeCP1250
  "cp1251" -> decodeCP1251
  "cp1252" -> decodeCP1252
  _        -> id