@@ -41,6 +41,7 @@ import Node.FS
41
41
import Node.FS.Stats
42
42
import Node.Path (FilePath ())
43
43
import Node.FS.Perms
44
+ import Node.FS.Internal
44
45
45
46
foreign import data Nullable :: * -> *
46
47
@@ -88,7 +89,7 @@ rename :: forall eff. FilePath
88
89
-> FilePath
89
90
-> Callback eff Unit
90
91
-> Eff (fs :: FS | eff ) Unit
91
- rename oldFile newFile cb = return $ runFn3
92
+ rename oldFile newFile cb = mkEff $ \_ -> runFn3
92
93
fs.rename oldFile newFile (handleCallback cb)
93
94
94
95
-- |
@@ -99,7 +100,7 @@ truncate :: forall eff. FilePath
99
100
-> Callback eff Unit
100
101
-> Eff (fs :: FS | eff ) Unit
101
102
102
- truncate file len cb = return $ runFn3
103
+ truncate file len cb = mkEff $ \_ -> runFn3
103
104
fs.truncate file len (handleCallback cb)
104
105
105
106
-- |
@@ -111,7 +112,7 @@ chown :: forall eff. FilePath
111
112
-> Callback eff Unit
112
113
-> Eff (fs :: FS | eff ) Unit
113
114
114
- chown file uid gid cb = return $ runFn4
115
+ chown file uid gid cb = mkEff $ \_ -> runFn4
115
116
fs.chown file uid gid (handleCallback cb)
116
117
117
118
-- |
@@ -122,7 +123,7 @@ chmod :: forall eff. FilePath
122
123
-> Callback eff Unit
123
124
-> Eff (fs :: FS | eff ) Unit
124
125
125
- chmod file perms cb = return $ runFn3
126
+ chmod file perms cb = mkEff $ \_ -> runFn3
126
127
fs.chmod file (permsToString perms) (handleCallback cb)
127
128
128
129
-- |
@@ -132,7 +133,7 @@ stat :: forall eff. FilePath
132
133
-> Callback eff Stats
133
134
-> Eff (fs :: FS | eff ) Unit
134
135
135
- stat file cb = return $ runFn2
136
+ stat file cb = mkEff $ \_ -> runFn2
136
137
fs.stat file (handleCallback $ cb <<< (<$>) Stats )
137
138
138
139
-- |
@@ -143,7 +144,7 @@ link :: forall eff. FilePath
143
144
-> Callback eff Unit
144
145
-> Eff (fs :: FS | eff ) Unit
145
146
146
- link src dst cb = return $ runFn3
147
+ link src dst cb = mkEff $ \_ -> runFn3
147
148
fs.link src dst (handleCallback cb)
148
149
149
150
-- |
@@ -155,7 +156,7 @@ symlink :: forall eff. FilePath
155
156
-> Callback eff Unit
156
157
-> Eff (fs :: FS | eff ) Unit
157
158
158
- symlink src dest ty cb = return $ runFn4
159
+ symlink src dest ty cb = mkEff $ \_ -> runFn4
159
160
fs.symlink src dest (show ty) (handleCallback cb)
160
161
161
162
-- |
@@ -165,7 +166,7 @@ readlink :: forall eff. FilePath
165
166
-> Callback eff FilePath
166
167
-> Eff (fs :: FS | eff ) Unit
167
168
168
- readlink path cb = return $ runFn2
169
+ readlink path cb = mkEff $ \_ -> runFn2
169
170
fs.readlink path (handleCallback cb)
170
171
171
172
-- |
@@ -175,7 +176,7 @@ realpath :: forall eff. FilePath
175
176
-> Callback eff FilePath
176
177
-> Eff (fs :: FS | eff ) Unit
177
178
178
- realpath path cb = return $ runFn3
179
+ realpath path cb = mkEff $ \_ -> runFn3
179
180
fs.realpath path {} (handleCallback cb)
180
181
181
182
-- |
@@ -187,7 +188,7 @@ realpath' :: forall eff cache. FilePath
187
188
-> Callback eff FilePath
188
189
-> Eff (fs :: FS | eff ) Unit
189
190
190
- realpath' path cache cb = return $ runFn3
191
+ realpath' path cache cb = mkEff $ \_ -> runFn3
191
192
fs.realpath path cache (handleCallback cb)
192
193
193
194
-- |
@@ -197,7 +198,7 @@ unlink :: forall eff. FilePath
197
198
-> Callback eff Unit
198
199
-> Eff (fs :: FS | eff ) Unit
199
200
200
- unlink file cb = return $ runFn2
201
+ unlink file cb = mkEff $ \_ -> runFn2
201
202
fs.unlink file (handleCallback cb)
202
203
203
204
-- |
@@ -207,7 +208,7 @@ rmdir :: forall eff. FilePath
207
208
-> Callback eff Unit
208
209
-> Eff (fs :: FS | eff ) Unit
209
210
210
- rmdir file cb = return $ runFn2
211
+ rmdir file cb = mkEff $ \_ -> runFn2
211
212
fs.rmdir file (handleCallback cb)
212
213
213
214
-- |
@@ -227,7 +228,7 @@ mkdir' :: forall eff. FilePath
227
228
-> Callback eff Unit
228
229
-> Eff (fs :: FS | eff ) Unit
229
230
230
- mkdir' file perms cb = return $ runFn3
231
+ mkdir' file perms cb = mkEff $ \_ -> runFn3
231
232
fs.mkdir file (permsToString perms) (handleCallback cb)
232
233
233
234
-- |
@@ -237,7 +238,7 @@ readdir :: forall eff. FilePath
237
238
-> Callback eff (Array FilePath )
238
239
-> Eff (fs :: FS | eff ) Unit
239
240
240
- readdir file cb = return $ runFn2
241
+ readdir file cb = mkEff $ \_ -> runFn2
241
242
fs.readdir file (handleCallback cb)
242
243
243
244
-- |
@@ -249,7 +250,7 @@ utimes :: forall eff. FilePath
249
250
-> Callback eff Unit
250
251
-> Eff (fs :: FS | eff ) Unit
251
252
252
- utimes file atime mtime cb = return $ runFn4
253
+ utimes file atime mtime cb = mkEff $ \_ -> runFn4
253
254
fs.utimes file
254
255
(ms (toEpochMilliseconds atime) / 1000 )
255
256
(ms (toEpochMilliseconds mtime) / 1000 )
@@ -264,7 +265,7 @@ readFile :: forall eff. FilePath
264
265
-> Callback eff Buffer
265
266
-> Eff (fs :: FS | eff ) Unit
266
267
267
- readFile file cb = return $ runFn3
268
+ readFile file cb = mkEff $ \_ -> runFn3
268
269
fs.readFile file {} (handleCallback cb)
269
270
270
271
-- |
@@ -275,7 +276,7 @@ readTextFile :: forall eff. Encoding
275
276
-> Callback eff String
276
277
-> Eff (fs :: FS | eff ) Unit
277
278
278
- readTextFile encoding file cb = return $ runFn3
279
+ readTextFile encoding file cb = mkEff $ \_ -> runFn3
279
280
fs.readFile file { encoding: show encoding } (handleCallback cb)
280
281
281
282
-- |
@@ -286,7 +287,7 @@ writeFile :: forall eff. FilePath
286
287
-> Callback eff Unit
287
288
-> Eff (fs :: FS | eff ) Unit
288
289
289
- writeFile file buff cb = return $ runFn4
290
+ writeFile file buff cb = mkEff $ \_ -> runFn4
290
291
fs.writeFile file buff {} (handleCallback cb)
291
292
292
293
-- |
@@ -298,7 +299,7 @@ writeTextFile :: forall eff. Encoding
298
299
-> Callback eff Unit
299
300
-> Eff (fs :: FS | eff ) Unit
300
301
301
- writeTextFile encoding file buff cb = return $ runFn4
302
+ writeTextFile encoding file buff cb = mkEff $ \_ -> runFn4
302
303
fs.writeFile file buff { encoding: show encoding } (handleCallback cb)
303
304
304
305
-- |
@@ -309,7 +310,7 @@ appendFile :: forall eff. FilePath
309
310
-> Callback eff Unit
310
311
-> Eff (fs :: FS | eff ) Unit
311
312
312
- appendFile file buff cb = return $ runFn4
313
+ appendFile file buff cb = mkEff $ \_ -> runFn4
313
314
fs.appendFile file buff {} (handleCallback cb)
314
315
315
316
-- |
@@ -321,7 +322,7 @@ appendTextFile :: forall eff. Encoding
321
322
-> Callback eff Unit
322
323
-> Eff (fs :: FS | eff ) Unit
323
324
324
- appendTextFile encoding file buff cb = return $ runFn4
325
+ appendTextFile encoding file buff cb = mkEff $ \_ -> runFn4
325
326
fs.appendFile file buff { encoding: show encoding } (handleCallback cb)
326
327
327
328
-- |
@@ -330,5 +331,5 @@ appendTextFile encoding file buff cb = return $ runFn4
330
331
exists :: forall eff . FilePath
331
332
-> (Boolean -> Eff eff Unit )
332
333
-> Eff (fs :: FS | eff ) Unit
333
- exists file cb = return $ runFn2
334
+ exists file cb = mkEff $ \_ -> runFn2
334
335
fs.exists file $ \b -> runPure (unsafeInterleaveEff (cb b))
0 commit comments