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
90adc354
Commit
90adc354
authored
Feb 20, 2015
by
Björn Peemöller
Browse files
Updated some comments
parent
6542b785
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ModuleSummary.hs
View file @
90adc354
...
...
@@ -76,7 +76,7 @@ genTypeSyns tcEnv mident decls
=
concatMap
(
genTypeSynDecl
mident
tcEnv
)
$
filter
isTypeSyn
decls
isTypeSyn
::
Decl
->
Bool
isTypeSyn
(
TypeDecl
_
_
_
t
expr
)
=
case
t
expr
of
isTypeSyn
(
TypeDecl
_
_
_
t
y
)
=
case
t
y
of
RecordType
_
->
False
_
->
True
isTypeSyn
_
=
False
...
...
src/Transformations.hs
View file @
90adc354
...
...
@@ -37,18 +37,18 @@ qual :: Options -> CompEnv Module -> CompEnv Module
qual
opts
(
env
,
mdl
)
=
(
qualifyEnv
opts
env
,
mdl'
)
where
mdl'
=
Q
.
qual
(
moduleIdent
env
)
(
tyConsEnv
env
)
(
valueEnv
env
)
mdl
-- |Remove syntactic sugar
-- |Remove
any
syntactic sugar
, changes the value environment.
desugar
::
Bool
->
CompEnv
Module
->
CompEnv
Module
desugar
dsfp
(
env
,
mdl
)
=
(
env
{
valueEnv
=
tyEnv'
},
mdl'
)
where
(
mdl'
,
tyEnv'
)
=
DS
.
desugar
dsfp
(
extensions
env
)
(
valueEnv
env
)
(
tyConsEnv
env
)
mdl
-- |Simplify the source code.
-- |Simplify the source code
, changes the value environment
.
simplify
::
CompEnv
Module
->
CompEnv
Module
simplify
(
env
,
mdl
)
=
(
env
{
valueEnv
=
tyEnv'
},
mdl'
)
where
(
mdl'
,
tyEnv'
)
=
S
.
simplify
(
valueEnv
env
)
(
tyConsEnv
env
)
mdl
-- |Lift local declarations
-- |Lift local declarations
, changes the value environment.
lift
::
CompEnv
Module
->
CompEnv
Module
lift
(
env
,
mdl
)
=
(
env
{
valueEnv
=
tyEnv'
},
mdl'
)
where
(
mdl'
,
tyEnv'
)
=
L
.
lift
(
valueEnv
env
)
mdl
...
...
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