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
9f4fa140
Commit
9f4fa140
authored
May 20, 2011
by
Björn Peemöller
Browse files
Import converted to normal Haskell file
parent
7e9510a9
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Base/Import.
l
hs
→
src/Base/Import.hs
View file @
9f4fa140
...
...
@@ -3,21 +3,25 @@
>
module
Base.Import
>
(
ImportEnv
,
bindAlias
,
lookupAlias
,
sureLookupAlias
,
initIEnv
>
,
fromDeclList
>
)
where
>
import
qualified
Data.Map
as
Map
(
Map
,
empty
,
insert
,
lookup
)
>
import
Data.Maybe
(
fromMaybe
)
>
import
Curry.Base.Ident
>
import
qualified
Curry.Syntax
as
CS
>
import
Curry.Base.Ident
(
ModuleIdent
)
>
import
qualified
Curry.Syntax
as
CS
(
Decl
(
..
))
>
type
ImportEnv
=
Map
.
Map
ModuleIdent
ModuleIdent
>
bindAlias
::
CS
.
Decl
->
ImportEnv
->
ImportEnv
>
bindAlias
(
CS
.
ImportDecl
_
mid
_
mmid
_
)
>
=
Map
.
insert
mid
(
fromMaybe
mid
mmid
)
>
bindAlias
(
CS
.
ImportDecl
_
mid
_
alias
_
)
>
=
Map
.
insert
mid
$
fromMaybe
mid
alias
>
bindAlias
_
=
error
"Base.bindAlias: no import declaration"
>
fromDeclList
::
[
CS
.
Decl
]
->
ImportEnv
>
fromDeclList
=
foldr
bindAlias
initIEnv
>
lookupAlias
::
ModuleIdent
->
ImportEnv
->
Maybe
ModuleIdent
>
lookupAlias
=
Map
.
lookup
...
...
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