Commit 68fbc703 authored by Kai-Oliver Prott's avatar Kai-Oliver Prott

Make shortAST qualified

parent 458d41b4
......@@ -92,18 +92,19 @@ compileModule opts m fn = do
writeTokens opts (fst mdl)
writeComments opts (fst mdl)
writeParsed opts mdl
writeHtml opts (qual mdl)
let umdl = (fst mdl, fmap (const ()) (snd mdl))
let qmdl = qual mdl
writeHtml opts qmdl
let umdl = (fst qmdl, fmap (const ()) (snd qmdl))
writeAST opts umdl
writeShortAST opts umdl
mdl' <- expandExports opts mdl
qmdl <- dumpWith opts CS.showModule CS.ppModule DumpQualified $ qual mdl'
writeAbstractCurry opts qmdl
qmdl' <- dumpWith opts CS.showModule CS.ppModule DumpQualified $ qual mdl'
writeAbstractCurry opts qmdl'
-- generate interface file
let intf = uncurry exportInterface qmdl
let intf = uncurry exportInterface qmdl'
writeInterface opts (fst mdl') intf
when withFlat $ do
((env, il), mdl'') <- transModule opts qmdl
((env, il), mdl'') <- transModule opts qmdl'
writeFlat opts env (snd mdl'') il
where
withFlat = any (`elem` optTargetTypes opts) [TypedFlatCurry, FlatCurry]
......
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