]>
Commit | Line | Data |
---|---|---|
c194f84c | 1 | module PursLoader.Path |
2 | ( dirname | |
3 | , join | |
4 | , relative | |
5 | , resolve | |
6 | ) where | |
7 | ||
8 | foreign import dirname """ | |
9 | function dirname(filepath) { | |
10 | var path = require('path'); | |
11 | return path.dirname(filepath); | |
12 | } | |
13 | """ :: String -> String | |
14 | ||
15 | foreign import join """ | |
16 | function join(parts) { | |
17 | var path = require('path'); | |
18 | return path.join.apply(path, parts); | |
19 | } | |
20 | """ :: [String] -> String | |
21 | ||
22 | foreign import relative """ | |
23 | function relative(from) { | |
24 | return function(to){ | |
25 | var path = require('path'); | |
26 | return path.relative(from, to); | |
27 | }; | |
28 | } | |
29 | """ :: String -> String -> String | |
30 | ||
31 | foreign import resolve """ | |
32 | function resolve(filepath) { | |
33 | var path = require('path'); | |
34 | return path.resolve(filepath); | |
35 | } | |
36 | """ :: String -> String |