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

Karin C's example

Browse Source
This commit is contained in:
aarne
2004-09-16 14:47:18 +00:00
parent d5c0814180
commit e2f00638e2
55 changed files with 2212 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Compile/Compile.hs
View File

@@ -266,10 +266,11 @@ generateModuleCode opts path minfo@(name,info) = do
code <- return $ MkGFC.prCanonModInfo minfo'
return (gfcFile pname, code)
if isCompilable info && emit && nomulti
then ioeIO $ writeFile file out >> putStr (" wrote file" +++ file)
else ioeIO $ putStrFlush $ "no need to save module" +++ prt name
then ioeIO (writeFile file out) >> ioeIOIf (putStr (" wrote file" +++ file))
else ioeIOIf $ putStrFlush $ "no need to save module" +++ prt name
return minfo'
where
ioeIOIf = if oElem beSilent opts then (const (return ())) else ioeIO
emitsGFR m = isModRes m && isCompilable info
---- isModRes m || (isModCnc m && mstatus m == MSIncomplete)
isCompilable mi = case mi of