forked from GitHub/gf-core
optimization flags and improver eng
This commit is contained in:
@@ -9,7 +9,7 @@
|
||||
-- > CVS $Author $
|
||||
-- > CVS $Revision $
|
||||
--
|
||||
-- (Description of the module)
|
||||
-- Compile HelpFile.hs from HelpFile.
|
||||
-----------------------------------------------------------------------------
|
||||
|
||||
module Main where
|
||||
@@ -20,6 +20,7 @@ main = do
|
||||
writeFile "HelpFile.hs" s'
|
||||
|
||||
mkHsFile ss =
|
||||
helpHeader ++
|
||||
"module HelpFile where\n\n" ++
|
||||
"import Operations\n\n" ++
|
||||
"txtHelpFileSummary =\n" ++
|
||||
@@ -39,3 +40,21 @@ mkOne s = " \"" ++ pref s ++ (escs s) ++ "\" ++"
|
||||
escs [] = []
|
||||
escs (c:cs) | elem c "\"\\" = '\\':c:escs cs
|
||||
escs (c:cs) = c:escs cs
|
||||
|
||||
helpHeader = unlines [
|
||||
"----------------------------------------------------------------------",
|
||||
"-- |",
|
||||
"-- Module : HelpFile",
|
||||
"-- Maintainer : Aarne Ranta",
|
||||
"-- Stability : (stable)",
|
||||
"-- Portability : (portable)",
|
||||
"--",
|
||||
"-- > CVS $Date $",
|
||||
"-- > CVS $Author $",
|
||||
"-- > CVS $Revision $",
|
||||
"--",
|
||||
"-- Help on shell commands. Generated from HelpFile by 'make help'.",
|
||||
"-----------------------------------------------------------------------------",
|
||||
"",
|
||||
""
|
||||
]
|
||||
Reference in New Issue
Block a user