[project @ 1996-12-19 08:16:24 by sof]

[ghc-hetmet.git] / ghc / compiler / rename / ParseUtils.lhs

diff --git a/ghc/compiler/rename/ParseUtils.lhs b/ghc/compiler/rename/ParseUtils.lhs
index 04d4302..4e28daf 100644 (file)
--- a/ghc/compiler/rename/ParseUtils.lhs
+++ b/ghc/compiler/rename/ParseUtils.lhs
@@ -24,13 +24,13 @@ import FiniteMap    ( unitFM, listToFM, lookupFM, plusFM, FiniteMap )
 import Maybes          ( maybeToBool, MaybeErr(..) )
 import Name            ( isLexConId, isLexVarId, isLexConSym,
                          mkTupNameStr, preludeQual, isRdrLexCon,
-                         RdrName(..){-instance Outputable:ToDo:rm-}
+                         RdrName(..) {-instance Outputable:ToDo:rm-}
                        )
 import PprStyle                ( PprStyle(..) ) -- ToDo: rm debugging
 import PrelMods                ( pRELUDE )
 import Pretty          ( ppCat, ppPStr, ppInt, ppShow, ppStr )
 import SrcLoc          ( mkIfaceSrcLoc )
-import Util            ( startsWith, isIn, panic, assertPanic, pprTrace{-ToDo:rm-} )
+import Util            ( startsWith, isIn, panic, assertPanic{-, pprTrace ToDo:rm-} )
 \end{code}
 
 \begin{code}
@@ -313,11 +313,11 @@ lexIface input
          Just (m,rest) -> lex_name (Just m) (in_the_club rest) rest
       where
        in_the_club []    = panic "lex_word:in_the_club"
-       in_the_club (x:_) | isAlpha    x = is_var_sym
+       in_the_club (x:y) | isAlpha    x = is_var_sym
                          | is_sym_sym x = is_sym_sym
                          | x == '['     = is_list_sym
                          | x == '('     = is_tuple_sym
-                         | otherwise    = panic ("lex_word:in_the_club="++[x])
+                         | otherwise    = panic ("lex_word:in_the_club="++(x:y))
 
     module_dot (c:cs)
       = if not (isUpper c) || c == '\'' then