[project @ 1999-06-28 15:43:12 by simonmar]

a couple more weird cases for lexing of qualified names.

diff --git a/ghc/tests/reader/should_compile/read023.hs b/ghc/tests/reader/should_compile/read023.hs
index dfcfd1e..d43370f 100644 (file)
--- a/ghc/tests/reader/should_compile/read023.hs
+++ b/ghc/tests/reader/should_compile/read023.hs
@@ -1,9 +1,12 @@
 module ShouldCompile where
 
 -- M.<keyword> isn't a qualified identifier
-f = Just.let x=id in x
+f  = Just.let x=id in x
+f' = Just.\1 where (.\) = ($)
 
 -- M.{as,hiding,qualified} *are* qualified identifiers
-g = ShouldCompile.as
+g  = ShouldCompile.as
+g' = (ShouldCompile.!)
 
 as x = x
+(!) x = x