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
412d9aca
Commit
412d9aca
authored
Jul 13, 2010
by
John van Groningen
Browse files
remove unnecessary !'s
parent
5f023483
Changes
2
Hide whitespace changes
Inline
Side-by-side
BatchBuild/IdeState.dcl
View file @
412d9aca
...
...
@@ -49,14 +49,14 @@ getFICache :: !*GeneralSt -> (FileInfoCache,*GeneralSt)
setFICache
::
!
FileInfoCache
!*
GeneralSt
->
*
GeneralSt
getPath
::
!*
GeneralSt
->
(!
Pathname
,!*
GeneralSt
)
setPath
::
!
Pathname
!*
GeneralSt
->
!
*
GeneralSt
setPath
::
!
Pathname
!*
GeneralSt
->
*
GeneralSt
getStup
::
!*
GeneralSt
->
(!
Pathname
,!*
GeneralSt
)
getTargets
::
!*
GeneralSt
->
(![
Target
],!*
GeneralSt
)
setTargets
::
![
Target
]
!*
GeneralSt
->
!
*
GeneralSt
setTargets
::
![
Target
]
!*
GeneralSt
->
*
GeneralSt
getCurrentTarget
::
!*
GeneralSt
->
(!
Int
,!*
GeneralSt
)
setCurrentTarget
::
!
Int
!*
GeneralSt
->
!
*
GeneralSt
setCurrentTarget
::
!
Int
!*
GeneralSt
->
*
GeneralSt
getCurrentPaths
::
!*
GeneralSt
->
(!(
List
Pathname
),!*
GeneralSt
)
getCurrentDlibs
::
!*
GeneralSt
->
(!(
List
String
),!*
GeneralSt
)
getCurrentSlibs
::
!*
GeneralSt
->
(!(
List
String
),!*
GeneralSt
)
...
...
BatchBuild/IdeState.icl
View file @
412d9aca
...
...
@@ -127,7 +127,7 @@ setFICache ac ps = appPLoc (\p->{p & fi_cache = Just ac}) ps
getPath
::
!*
GeneralSt
->
(!
Pathname
,!*
GeneralSt
)
getPath
ps
=
ps
!
ls
.
pr_path
setPath
::
!
Pathname
!*
GeneralSt
->
!
*
GeneralSt
setPath
::
!
Pathname
!*
GeneralSt
->
*
GeneralSt
setPath
path
ps
=
{
ps
&
ls
.
pr_path
=
path
}
getStup
::
!*
GeneralSt
->
(!
Pathname
,!*
GeneralSt
)
...
...
@@ -138,13 +138,13 @@ getStup ps = ps!ls.stup
getTargets
::
!*
GeneralSt
->
(![
Target
],!*
GeneralSt
)
getTargets
ps
=
accPLoc
(\
p
=:{
pm_targets
}->(
pm_targets
,
p
))
ps
setTargets
::
![
Target
]
!*
GeneralSt
->
!
*
GeneralSt
setTargets
::
![
Target
]
!*
GeneralSt
->
*
GeneralSt
setTargets
ts
ps
=
appPLoc
(\
p
->{
p
&
pm_targets
=
ts
})
ps
getCurrentTarget
::
!*
GeneralSt
->
(!
Int
,!*
GeneralSt
)
getCurrentTarget
ps
=
accPLoc
(\
p
=:{
pm_curtarg
}->(
pm_curtarg
,
p
))
ps
setCurrentTarget
::
!
Int
!*
GeneralSt
->
!
*
GeneralSt
setCurrentTarget
::
!
Int
!*
GeneralSt
->
*
GeneralSt
setCurrentTarget
tg
ps
=
appPLoc
(\
p
->{
p
&
pm_curtarg
=
tg
})
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