Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
cf788a53
Commit
cf788a53
authored
Jan 26, 2016
by
Simon Peyton Jones
Browse files
White space only
parent
632f020b
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/coreSyn/CoreSubst.hs
View file @
cf788a53
...
...
@@ -542,8 +542,8 @@ cloneBndrs subst us vs
cloneBndr
::
Subst
->
Unique
->
Var
->
(
Subst
,
Var
)
cloneBndr
subst
uniq
v
|
isTyVar
v
=
cloneTyVarBndr
subst
v
uniq
|
otherwise
=
clone_id
subst
subst
(
v
,
uniq
)
-- Works for coercion variables too
|
isTyVar
v
=
cloneTyVarBndr
subst
v
uniq
|
otherwise
=
clone_id
subst
subst
(
v
,
uniq
)
-- Works for coercion variables too
-- | Clone a mutually recursive group of 'Id's
cloneRecIdBndrs
::
Subst
->
UniqSupply
->
[
Id
]
->
(
Subst
,
[
Id
])
...
...
Write
Preview
Markdown
is supported
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