GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixed decodeUTF8 for pgf; removed old resources from darcs

Browse Source
This commit is contained in:
aarne
2008-06-26 19:41:25 +00:00
parent accab4e20b
commit ba63991007
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Text/Transliterations.hs
View File

@@ -32,7 +32,7 @@ transliteration s = case s of
characterTable :: Transliteration -> String characterTable :: Transliteration -> String
characterTable = unlines . map prOne . Map.assocs . trans_from_unicode where 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 { data Transliteration = Trans {
trans_to_unicode :: Map.Map String Int, trans_to_unicode :: Map.Map String Int,

2
src/PGF.hs
View File

@@ -172,7 +172,7 @@ startCat :: PGF -> Category
--------------------------------------------------- ---------------------------------------------------
readPGF f = do readPGF f = do
s <- readFile f s <- readFile f >>= return . decodeUTF8 -- pgf is in UTF8, internal in unicode
g <- parseGrammar s g <- parseGrammar s
return $! toPGF g return $! toPGF g