7 import Control.Monad.Aff (Aff(), makeAff)
8 import Control.Monad.Eff (Eff())
9 import Control.Monad.Eff.Exception (Error())
13 foreign import data FS :: !
15 readFileUtf8 :: forall eff. String -> Aff (fs :: FS | eff) String
16 readFileUtf8 filepath = makeAff $ runFn3 readFileUtf8Fn filepath
18 readFileUtf8Sync :: forall eff. String -> Eff (fs :: FS | eff) String
19 readFileUtf8Sync filepath = readFileUtf8SyncFn filepath
21 foreign import readFileUtf8Fn """
22 function readFileUtf8Fn(filepath, errback, callback) {
24 var fs = require('fs');
26 fs.readFile(filepath, 'utf-8', function(e, data){
28 else callback(data)();
32 """ :: forall eff. Fn3 String
33 (Error -> Eff (fs :: FS | eff) Unit)
34 (String -> Eff (fs :: FS | eff) Unit)
35 (Eff (fs :: FS | eff) Unit)
37 foreign import readFileUtf8SyncFn """
38 function readFileUtf8SyncFn(filepath) {
40 var fs = require('fs');
42 return fs.readFileSync(filepath, {encoding: 'utf-8'});
45 """ :: forall eff. String -> (Eff (fs :: FS | eff) String)