msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Added OPTIONS class to make options handling somewhat nicer. Next, I will merge Flags and ModuleFlags.

Browse Source
This commit is contained in:
bjorn
2008-10-15 11:38:34 +00:00
parent 60ba93cfbb
commit 1ecb4f63e9
11 changed files with 65 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Compile/Coding.hs
View File

@@ -15,7 +15,7 @@ encodeStringsInModule = codeSourceModule encodeUTF8
decodeStringsInModule :: SourceModule -> SourceModule
decodeStringsInModule mo = case mo of
(_,ModMod m) -> case moduleFlag optEncoding (moduleOptions (flags m)) of
(_,ModMod m) -> case flag optEncoding (flags m) of
UTF_8 -> codeSourceModule decodeUTF8 mo
CP_1251 -> codeSourceModule decodeCP1251 mo
_ -> mo