blob: e440c16f943707c432068d1b84480367f44c67b4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(.module:
[lux #- Module]
(lux (control monad
["ex" exception #+ exception:])
(data [error]
[text]
(text format
[encoding]))
(world [file #+ File System]
[blob #+ Blob])))
(type: #export Context File)
(type: #export Module Text)
(def: #export (sanitize system)
(All [m] (-> (System m) Text Text))
(text.replace-all "/" (:: system separator)))
|
