Commit 93fb5f0f authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Always generate a Curry interface, not only for FlatCurry targets

parent 861e864a
......@@ -237,11 +237,11 @@ writeOutput opts fn mdl@(_, modul) = do
writeParsed opts fn modul
qmdl@(env1, qlfd) <- dumpWith opts CS.ppModule DumpQualified $ qual opts mdl
writeAbstractCurry opts fn qmdl
-- generate interface file
let intf = uncurry exportInterface qmdl
writeInterface opts fn intf
when withFlat $ do
(env2, il) <- transModule opts (env1, qlfd)
-- generate interface file
let intf = exportInterface env2 qlfd
writeInterface opts fn intf
-- generate target code
let modSum = summarizeModule (tyConsEnv env2) intf qlfd
writeFlat opts fn env2 modSum il
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment