X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FCtype.lhs;fp=compiler%2Fparser%2FCtype.lhs;h=60c4d2fbde38e43d2e5ced868df772a7212c0a24;hp=8d0b91b910f1748e89bbc195e7de74ebfb943668;hb=c2fe7d87c067e21ff656443cabd8e29f9842a596;hpb=2b37fb7a1809e4d0aec3db33a9c8a215b00a869b

diff --git a/compiler/parser/Ctype.lhs b/compiler/parser/Ctype.lhs
index 8d0b91b..60c4d2f 100644
--- a/compiler/parser/Ctype.lhs
+++ b/compiler/parser/Ctype.lhs
@@ -91,11 +91,11 @@ charType c = case c of
    '\6'   -> 0                         -- \006
    '\7'   -> 0                         -- \007
    '\8'   -> 0                         -- \010
-   '\9'   -> cAny + cSpace             -- \t
-   '\10'  -> cSpace	               -- \n (not allowed in strings, so !cAny)
-   '\11'  -> cAny + cSpace             -- \v
-   '\12'  -> cAny + cSpace             -- \f
-   '\13'  -> cAny + cSpace             --  ^M
+   '\9'   -> cSpace                    -- \t  (not allowed in strings, so !cAny)
+   '\10'  -> cSpace	               -- \n  (ditto)
+   '\11'  -> cSpace                    -- \v  (ditto)
+   '\12'  -> cSpace                    -- \f  (ditto)
+   '\13'  -> cSpace                    --  ^M (ditto)
    '\14'  -> 0                         -- \016
    '\15'  -> 0                         -- \017
    '\16'  -> 0                         -- \020