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
2aaf96ed
Commit
2aaf96ed
authored
Jan 17, 2013
by
Björn Peemöller
Browse files
Dumps changed to pretty printed version
parent
07498401
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Modules.hs
View file @
2aaf96ed
...
...
@@ -179,12 +179,12 @@ checkModule opts (env, mdl) = do
then
typeCheck
env3
pc
>>=
uncurry
exportCheck
else
return
(
env3
,
pc
)
(
env5
,
ql
)
<-
return
$
qual
opts
env4
tc
let
dumps
=
[
(
DumpParsed
,
env
,
CS
.
showModule
mdl
)
,
(
DumpKindChecked
,
env1
,
CS
.
showModule
kc
)
,
(
DumpSyntaxChecked
,
env2
,
CS
.
showModule
sc
)
,
(
DumpPrecChecked
,
env3
,
CS
.
showModule
pc
)
,
(
DumpTypeChecked
,
env4
,
CS
.
showModule
tc
)
,
(
DumpQualified
,
env5
,
CS
.
showModule
ql
)
let
dumps
=
[
(
DumpParsed
,
env
,
show
$
CS
.
pp
Module
mdl
)
,
(
DumpKindChecked
,
env1
,
show
$
CS
.
pp
Module
kc
)
,
(
DumpSyntaxChecked
,
env2
,
show
$
CS
.
pp
Module
sc
)
,
(
DumpPrecChecked
,
env3
,
show
$
CS
.
pp
Module
pc
)
,
(
DumpTypeChecked
,
env4
,
show
$
CS
.
pp
Module
tc
)
,
(
DumpQualified
,
env5
,
show
$
CS
.
pp
Module
ql
)
]
return
(
env5
,
ql
,
dumps
)
where
...
...
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