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