mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-12 06:19:33 -06:00
15 lines
267 B
Haskell
15 lines
267 B
Haskell
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
|