Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-platform
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
17
Issues
17
List
Boards
Labels
Service Desk
Milestones
Merge Requests
3
Merge Requests
3
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-platform
Commits
710eca96
Commit
710eca96
authored
Oct 21, 2019
by
Steffen Michels
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fix type of scanDirectory to allow a unique state
parent
d971c0ae
Pipeline
#31691
passed with stage
in 1 minute and 48 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
4 additions
and
2 deletions
+4
-2
src/libraries/OS-Independent/System/Directory.dcl
src/libraries/OS-Independent/System/Directory.dcl
+2
-1
src/libraries/OS-Independent/System/Directory.icl
src/libraries/OS-Independent/System/Directory.icl
+2
-1
No files found.
src/libraries/OS-Independent/System/Directory.dcl
View file @
710eca96
...
...
@@ -32,7 +32,8 @@ recursiveDelete :: !FilePath !*World -> *(!MaybeOSError (), !*World)
* @result The updated state.
* @result The new world.
*/
scanDirectory
::
!(
FilePath
FileInfo
.
st
*
World
->
*(.
st
,
*
World
))
!.
st
!
FilePath
!*
World
->
*(![
OSError
],
!.
st
,
!*
World
)
scanDirectory
::
!(
FilePath
FileInfo
.
st
->
*(*
World
->
*(.
st
,
*
World
)))
!.
st
!
FilePath
!*
World
->
*(![
OSError
],
!.
st
,
!*
World
)
/**
* Create an {{RTree}} from a root for a directory structure.
...
...
src/libraries/OS-Independent/System/Directory.icl
View file @
710eca96
...
...
@@ -39,7 +39,8 @@ recursiveDelete fp w
=
removeDirectory
fp
w
=
deleteFile
fp
w
scanDirectory
::
!(
FilePath
FileInfo
.
st
*
World
->
*(.
st
,
*
World
))
!.
st
!
FilePath
!*
World
->
*(![
OSError
],
!.
st
,
!*
World
)
scanDirectory
::
!(
FilePath
FileInfo
.
st
->
*(*
World
->
*(.
st
,
*
World
)))
!.
st
!
FilePath
!*
World
->
*(![
OSError
],
!.
st
,
!*
World
)
scanDirectory
upd
st
dir
w
=
scan
dir
[]
st
w
where
scan
dir
errs
st
w
...
...
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