diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-26 19:41:25 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-26 19:41:25 +0000 |
| commit | ba639910078845c37641ccb2315095b4438cf0c8 (patch) | |
| tree | aee4260359dd339afa42471698f369e385fbbfef | |
| parent | accab4e20b218a4c20195e55db566bc07f321a40 (diff) | |
fixed decodeUTF8 for pgf; removed old resources from darcs
| -rw-r--r-- | src/GF/Text/Transliterations.hs | 2 | ||||
| -rw-r--r-- | src/PGF.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Text/Transliterations.hs b/src/GF/Text/Transliterations.hs index 57237a1cf..19adf68fa 100644 --- a/src/GF/Text/Transliterations.hs +++ b/src/GF/Text/Transliterations.hs @@ -32,7 +32,7 @@ transliteration s = case s of characterTable :: Transliteration -> String characterTable = unlines . map prOne . Map.assocs . trans_from_unicode where - prOne (i,s) = unwords ["|", show i, "|", encodeUTF8 [toEnum i], "|", s, "|"] + prOne (i,s) = unwords ["|", show i, "|", [toEnum i], "|", s, "|"] data Transliteration = Trans { trans_to_unicode :: Map.Map String Int, diff --git a/src/PGF.hs b/src/PGF.hs index 8add3d1d8..33c17b81b 100644 --- a/src/PGF.hs +++ b/src/PGF.hs @@ -172,7 +172,7 @@ startCat :: PGF -> Category --------------------------------------------------- readPGF f = do - s <- readFile f + s <- readFile f >>= return . decodeUTF8 -- pgf is in UTF8, internal in unicode g <- parseGrammar s return $! toPGF g |