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 9f72c1ec1b87ad3b26ed2578394ce96ad25634b5..adcaec27efbbfa27931a89ef59ae3f6381c3a27e 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 c15f46fa06b46c4450ae156c9b9b7f96c51bcd64..0a247e0d03211c7c9d2dccda16123dd0233c4653 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