From b7e1e31909fe6e89887ade077c90c5fdb2081434 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Sat, 20 May 2006 02:56:06 +0000
Subject: 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.

---
 src/tools/MkHelpFile.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/tools')

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 [
-- 
cgit v1.2.3