add cp1252. usefull for Swedish and German

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