Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
a81b1b1f
Commit
a81b1b1f
authored
Oct 19, 2010
by
John van Groningen
Browse files
remove accProject (no longer used)
parent
7ebbd243
Changes
2
Hide whitespace changes
Inline
Side-by-side
Ide/IdeState.dcl
View file @
a81b1b1f
...
...
@@ -33,7 +33,6 @@ instance Consoler General // Console
getProject
::
!*(
PSt
*
General
)
->
(
Project
,*
PSt
*
General
)
setProject
::
!
Project
!*(
PSt
*
General
)
->
*
PSt
*
General
appProject
::
(
Project
->
Project
)
!*(
PSt
*
General
)
->
*
PSt
*
General
accProject
::
(
Project
->
(.
a
,
Project
))
!*(
PSt
*
General
)
->
(.
a
,*
PSt
*
General
)
getFromProject
::
(
Project
->
.
a
)
!*(
PSt
*
General
)
->
(!.
a
,!*
PSt
*
General
)
getCompilerProcessIds
::
!*(
PSt
*
General
)
->
(!
CompilerProcessIds
,!*(
PSt
*
General
))
...
...
Ide/IdeState.icl
View file @
a81b1b1f
...
...
@@ -80,12 +80,6 @@ setProject prj ps = appPLoc (\l->{l & project = prj}) ps
appProject
::
(
Project
->
Project
)
!*(
PSt
*
General
)
->
*(
PSt
*
General
)
appProject
f
ps
=
appPLoc
(\
l
=:{
project
}->{
l
&
project
=
f
project
})
ps
accProject
::
(
Project
->
(.
a
,
Project
))
!*(
PSt
*
General
)
->
(.
a
,*(
PSt
*
General
))
accProject
f
ps
#
(
prj
,
ps
)
=
ps
!
ls
.
project
#
(
res
,
prj
)
=
f
prj
=
(
res
,{
ps
&
ls
.
project
=
prj
})
getFromProject
::
(
Project
->
.
a
)
!*(
PSt
*
General
)
->
(!.
a
,!*
PSt
*
General
)
getFromProject
f
ps
=:{
ls
={
project
}}
=
(
f
project
,
ps
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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