From 891e78b3ac7f865055203fd6d14f26809f749ec9 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Mon, 8 May 2000 17:18:02 +0000
Subject: [PATCH] [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...
---
ghc/compiler/parser/{Ctypes.lhs => Ctype.lhs} | 4 ++--
ghc/compiler/parser/Lex.lhs | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
rename ghc/compiler/parser/{Ctypes.lhs => Ctype.lhs} (99%)
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 9f72c1ec1b87..adcaec27efbb 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 c15f46fa06b4..0a247e0d0321 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
--
GitLab