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/Rebuild.hs
View File

@@ -81,7 +81,7 @@ rebuildModule ms mo@(i,mi) = do
++ [oSimple i | i <- map snd insts] ----
--- check if me is incomplete
let fs1 = addModuleOptions fs fs_ -- new flags have priority
let fs1 = fs `addOptions` fs_ -- new flags have priority
let js0 = [ci | ci@(c,_) <- tree2list js, isInherited incl c]
let js1 = buildTree (tree2list js_ ++ js0)
let ps1 = buildTree (tree2list ps_ ++ tree2list ps0)