Use CPP to simplify build procedure for Highlighting.hs module.

This is no longer built by Setup.hs in the pre-configure phase.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1339 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 0 insertions, 9 deletions

diff --git a/Setup.hs b/Setup.hs
index 25960bcc4..9d671feae 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -22,14 +22,6 @@ myPostConf _ configFlags pkgDescription buildInfo = do
   fillAsciiMathMLTemplate
   fillS5WriterTemplate
   fillDefaultHeadersTemplate
-  let deps = packageDeps buildInfo
-  let highlighting = any (\id -> pkgName id == "highlighting-kate") deps 
-  let highlightingModule = if highlighting
-                              then combine "templates" "Highlighting.yes.hs"
-                              else combine "templates" "Highlighting.no.hs"
-  copyFile highlightingModule $ joinPath ["Text", "Pandoc", "Highlighting.hs"] 
-  putStrLn $ "  Text/Pandoc/Highlighting.hs [" ++ 
-             (if highlighting then "with" else "without") ++ " syntax highlighting support]"
 
 -- Fill templateFile with data in dataFiles and write to outputFile.
 fillTemplate :: [FilePath] -> FilePath -> FilePath -> IO ()
@@ -61,7 +53,6 @@ myPostClean _ _ _ _ = do
   putStrLn "Removing source files generated from templates:"
   removeGeneratedFile $ joinPath [pandocPath, "ASCIIMathML.hs"]
   removeGeneratedFile $ joinPath [pandocPath, "DefaultHeaders.hs"]
-  removeGeneratedFile $ joinPath [pandocPath, "Highlighting.hs"]
   removeGeneratedFile $ joinPath [pandocPath, "Writers", "S5.hs"]
 
 -- Remove file and print message.