From: panne <unknown>
Date: Mon, 8 May 2000 17:18:02 +0000 (+0000)
Subject: [project @ 2000-05-08 17:18:02 by panne]
X-Git-Tag: Approximately_9120_patches~4556
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=891e78b3ac7f865055203fd6d14f26809f749ec9;p=ghc-hetmet.git

[project @ 2000-05-08 17:18:02 by panne]
* Changed a backslash at EOL to the word "backslash". Using cpp in
  conjunction with Haskell is a real hack...

* Renamed the module Ctypes to Ctype, because CTypes is (soon) a
  module from package lang. I'm not sure if two files differing only
  in their case work under "the" OS. Just to be sure...
---

diff --git a/ghc/compiler/parser/Ctypes.lhs b/ghc/compiler/parser/Ctype.lhs
similarity index 99%
rename from ghc/compiler/parser/Ctypes.lhs
rename to ghc/compiler/parser/Ctype.lhs
index 9f72c1e..adcaec2 100644
--- a/ghc/compiler/parser/Ctypes.lhs
+++ b/ghc/compiler/parser/Ctype.lhs
@@ -1,7 +1,7 @@
 Character classification
 
 \begin{code}
-module Ctypes
+module Ctype
 	( is_ident	-- Char# -> Bool
 	, is_symbol	-- Char# -> Bool
 	, is_any	-- Char# -> Bool
@@ -146,7 +146,7 @@ charType c = case c of
    '\89'  -> cAny + cIdent  + cUpper   -- Y
    '\90'  -> cAny + cIdent  + cUpper   -- Z
    '\91'  -> cAny                      -- [
-   '\92'  -> cAny + cSymbol            -- \
+   '\92'  -> cAny + cSymbol            -- backslash
    '\93'  -> cAny                      -- ]
    '\94'  -> cAny + cSymbol            -- ^
    '\95'  -> cAny + cIdent  + cLower   -- _
diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index c15f46f..0a247e0 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -54,7 +54,7 @@ import FastString
 import StringBuffer
 import GlaExts
 import ST		( runST )
-import Ctypes
+import Ctype
 import Char		( chr )
 import Addr
 import PrelRead 	( readRational__ ) -- Glasgow non-std