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

Fix incorrect output format for fullAST target

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