6 import Control.Monad.Aff (Aff(), makeAff)
7 import Control.Monad.Eff (Eff())
8 import Control.Monad.Eff.Exception (Error())
12 foreign import data FS :: !
14 writeFileUtf8 :: forall eff. String -> String -> Aff (fs :: FS | eff) Unit
15 writeFileUtf8 filepath contents = makeAff $ runFn4 writeFileUtf8Fn filepath contents
17 foreign import writeFileUtf8Fn """
18 function writeFileUtf8Fn(filepath, contents, errback, callback) {
20 var fs = require('fs');
22 fs.writeFile(filepath, contents, function(error){
23 if (error) errback(error)();
28 """ :: forall eff. Fn4 String
30 (Error -> Eff (fs :: FS | eff) Unit)
31 (Unit -> Eff (fs :: FS | eff) Unit)
32 (Eff (fs :: FS | eff) Unit)