Commit 4c9bba28 authored by Kai-Oliver Prott's avatar Kai-Oliver Prott

Fix incorrect output format for fullAST target

parent da470bf0
......@@ -394,7 +394,7 @@ writeAbstractCurry opts (env, mdl) = do
writeAST :: Options -> CompEnv (CS.Module ()) -> CYIO ()
writeAST opts (env, mdl) = when astTarget $ liftIO $
writeModule (useSubDir $ astName (filePath env)) (show mdl)
writeModule (useSubDir $ astName (filePath env)) (CS.showModule mdl)
where
astTarget = AST `elem` optTargetTypes opts
useSubDir = addCurrySubdirModule (optUseSubdir opts) (moduleIdent env)
......
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