Commit c9753cfd authored by Jonas Oberschweiber's avatar Jonas Oberschweiber
Browse files

Ensure ACY files are present for every module

parent 263c6b90
...@@ -28,6 +28,7 @@ ...@@ -28,6 +28,7 @@
module CurryDoc where module CurryDoc where
import AbstractCurry.Files
import Directory import Directory
import Distribution import Distribution
import FileGoodies import FileGoodies
...@@ -268,6 +269,10 @@ makeDocWithComments :: DocType -> DocParams -> Bool -> String -> AnaInfo ...@@ -268,6 +269,10 @@ makeDocWithComments :: DocType -> DocParams -> Bool -> String -> AnaInfo
-> String -> String -> [(SourceLine,String)] -> IO () -> String -> String -> [(SourceLine,String)] -> IO ()
makeDocWithComments HtmlDoc docparams recursive docdir anainfo modname makeDocWithComments HtmlDoc docparams recursive docdir anainfo modname
modcmts progcmts = do modcmts progcmts = do
-- ensure that the AbstractCurry file for the module exists
loadpath <- getLoadPathForModule modname
modpath <- lookupFileInPath (abstractCurryFileName modname) [""] loadpath
unless (modpath /= Nothing) $ callFrontend ACY modname
writeOutfile docparams recursive docdir modname writeOutfile docparams recursive docdir modname
(generateHtmlDocs docparams anainfo modname modcmts progcmts) (generateHtmlDocs docparams anainfo modname modcmts progcmts)
translateSource2ColoredHtml docdir modname translateSource2ColoredHtml docdir modname
......
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