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
c79f8488
Commit
c79f8488
authored
Dec 07, 2015
by
Björn Peemöller
Browse files
Retain position information of export specification in export check
parent
93d192a5
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Checks/ExportCheck.hs
View file @
c79f8488
...
...
@@ -58,9 +58,12 @@ import Env.Value (ValueEnv, ValueInfo (..), qualLookupValue)
exportCheck
::
ModuleIdent
->
AliasEnv
->
TCEnv
->
ValueEnv
->
Maybe
ExportSpec
->
(
Maybe
ExportSpec
,
[
Message
])
exportCheck
m
aEnv
tcEnv
tyEnv
spec
=
case
expErrs
of
[]
->
(
Just
$
Exporting
NoPos
exports
,
ambiErrs
)
[]
->
(
Just
$
Exporting
(
exportPos
spec
)
exports
,
ambiErrs
)
ms
->
(
spec
,
ms
)
where
exportPos
(
Just
(
Exporting
p
_
))
=
p
exportPos
Nothing
=
NoPos
(
exports
,
expErrs
)
=
runECM
((
joinExports
.
canonExports
tcEnv
)
<$>
expandSpec
spec
)
initState
initState
=
ECState
m
imported
tcEnv
tyEnv
[]
...
...
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