diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-05-20 02:56:06 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-05-20 02:56:06 +0000 |
| commit | b7e1e31909fe6e89887ade077c90c5fdb2081434 (patch) | |
| tree | 0a51c14881df222ac5799330a7abddd66eb968b5 /src/tools | |
| parent | 49849d7fe381bdf20e66e5255ee7d27a8dc300f9 (diff) | |
Changes to make GF compile with GHC 6.5 from CVS: remove inlines use of !, change all latin-1 characters in haskell code to escapes.
Diffstat (limited to 'src/tools')
| -rw-r--r-- | src/tools/MkHelpFile.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/tools/MkHelpFile.hs b/src/tools/MkHelpFile.hs index 45e9d302a..a0fafa918 100644 --- a/src/tools/MkHelpFile.hs +++ b/src/tools/MkHelpFile.hs @@ -38,6 +38,7 @@ mkOne s = " \"" ++ pref s ++ (escs s) ++ "\" ++" pref _ = "\\n" --- escs [] = [] escs (c:cs) | elem c "\"\\" = '\\':c:escs cs + | fromEnum c > 127 = "\\" ++show (fromEnum c)++escs cs escs (c:cs) = c:escs cs helpHeader = unlines [ |