Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tobias Decking
GHC
Commits
7c3684fc
Commit
7c3684fc
authored
Oct 06, 2006
by
simonpj@microsoft.com
Browse files
Undo an accidentally-committed patch by Audrey
parent
190f2489
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/iface/IfaceSyn.lhs
View file @
7c3684fc
...
...
@@ -750,7 +750,7 @@ type EqEnv = UniqFM FastString -- Tracks the mapping from L-variables to R-varia
eqIfOcc :: EqEnv -> FastString -> FastString -> IfaceEq
eqIfOcc env n1 n2 = case lookupUFM env n1 of
Just n1 -> bool (n1 == n2)
Nothing -> bool (
show n1 == show
n2)
Nothing -> bool (
n1 ==
n2)
extendEqEnv :: EqEnv -> FastString -> FastString -> EqEnv
extendEqEnv env n1 n2 | n1 == n2 = env
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment