Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
curry
curry-frontend
Commits
280e96e5
Commit
280e96e5
authored
Jul 08, 2015
by
Björn Peemöller
Browse files
Removed old parameter (did not compile)
parent
2c1a4ff4
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Transformations/Simplify.hs
View file @
280e96e5
...
...
@@ -295,8 +295,8 @@ simplifyLet env (ds:dss) e = do
ds''
<-
concatMapM
(
expandPatternBindings
(
qfv
m
ds'
++
qfv
m
e'
))
ds'
return
$
foldr
(
mkLet
m
)
e'
(
scc
bv
(
qfv
m
)
ds''
)
inlineVars
::
[
Ident
]
->
InlineEnv
->
[
Decl
]
->
SIM
InlineEnv
inlineVars
fvs
env
ds
=
case
ds
of
inlineVars
::
InlineEnv
->
[
Decl
]
->
SIM
InlineEnv
inlineVars
env
ds
=
case
ds
of
[
PatternDecl
_
(
VariablePattern
v
)
(
SimpleRhs
_
e
_
)]
->
do
allowed
<-
canInlineVar
v
e
return
$
if
allowed
then
Map
.
insert
v
e
env
else
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