add cp1252. usefull for Swedish and German

2008-10-25 20:25:09 +00:00
parent a06d2c6d50
commit e816ae237a
2 changed files with 9 additions and 0 deletions
--- a/src/GF/Text/CP1252.hs
+++ b/src/GF/Text/CP1252.hs
@@ -0,0 +1,6 @@
+module GF.Text.CP1252 where
+
+import Data.Char
+
+decodeCP1252 = map id
+encodeCP1252 = map (\x -> if x <= '\255' then x else '?')