mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-26 13:29:12 +00:00
25 lines
985 B
Text
25 lines
985 B
Text
interface Dir
|
|
exposes [ReadErr, DeleteErr, DirEntry, deleteEmptyDir, deleteRecursive, list]
|
|
imports [Effect, Task.{ Task }, InternalTask, Path.{ Path }, InternalPath, InternalDir]
|
|
|
|
ReadErr : InternalDir.ReadErr
|
|
|
|
DeleteErr : InternalDir.DeleteErr
|
|
|
|
DirEntry : InternalDir.DirEntry
|
|
|
|
## Lists the files and directories inside the directory.
|
|
list : Path -> Task (List Path) [DirReadErr Path ReadErr]* [Read [File]*]*
|
|
list = \path ->
|
|
effect = Effect.map (Effect.dirList (InternalPath.toBytes path)) \result ->
|
|
when result is
|
|
Ok entries -> Ok (List.map entries InternalPath.fromOsBytes)
|
|
Err err -> Err (DirReadErr path err)
|
|
|
|
InternalTask.fromEffect effect
|
|
|
|
## Deletes a directory if it's empty.
|
|
deleteEmptyDir : Path -> Task {} [DirDeleteErr Path DeleteErr]* [Write [File]*]*
|
|
|
|
## Recursively deletes the directory as well as all files and directories inside it.
|
|
deleteRecursive : Path -> Task {} [DirDeleteErr Path DeleteErr]* [Write [File]*]*
|