Commit 80f8f202 authored by simonpj's avatar simonpj
Browse files

[project @ 1999-01-07 16:53:10 by simonpj]

Fix RnEnv.mkPrintUnqualFn
parent f7952752
...@@ -438,7 +438,7 @@ mkPrintUnqualFn env ...@@ -438,7 +438,7 @@ mkPrintUnqualFn env
where where
lookup name = case lookupRdrEnv env (Unqual (nameOccName name)) of lookup name = case lookupRdrEnv env (Unqual (nameOccName name)) of
Just [name'] -> name == name' Just [name'] -> name == name'
Nothing -> False other -> False
\end{code} \end{code}
%************************************************************************ %************************************************************************
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment