From 1ecb4f63e9765962aab570bf043cb65c22df1e45 Mon Sep 17 00:00:00 2001 From: bjorn Date: Wed, 15 Oct 2008 11:38:34 +0000 Subject: Added OPTIONS class to make options handling somewhat nicer. Next, I will merge Flags and ModuleFlags. --- src/GF/Compile/Coding.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Compile/Coding.hs') diff --git a/src/GF/Compile/Coding.hs b/src/GF/Compile/Coding.hs index 704e95201..89e458956 100644 --- a/src/GF/Compile/Coding.hs +++ b/src/GF/Compile/Coding.hs @@ -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 -- cgit v1.2.3