Add 'question' function (#13)

* Added 'question' function * Added missing semicolons. * Added missing semicolons. Added missing effect to question callback. * Added missing effect to question callback.
purescript-node · Aug 22, 2017 · 2a4628c · 2a4628c
1 parent 82e87ee
commit 2a4628c
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 0 deletions.
diff --git a/src/Node/ReadLine.js b/src/Node/ReadLine.js
@@ -31,6 +31,18 @@ exports.prompt = function (readline) {
     };
 };
 
+exports.question = function(text) {
+    return function(callback) {
+        return function(readline) {
+            return function() {
+                readline.question(text, function(result) {
+                    callback(result)();
+                });
+            };
+        };
+    };
+};
+
 exports.setPrompt = function (prompt) {
     return function (length) {
         return function (readline) {

diff --git a/src/Node/ReadLine.purs b/src/Node/ReadLine.purs
@@ -17,6 +17,7 @@ module Node.ReadLine
   , setPrompt
   , setLineHandler
   , close
+  , question
   ) where
 
 import Prelude
@@ -100,6 +101,16 @@ foreign import prompt
    . Interface
   -> Eff (readline :: READLINE | eff) Unit
 
+-- | Writes a query to the output, waits
+-- | for user input to be provided on input, then invokes
+-- | the callback function
+foreign import question
+  :: forall eff
+   . String
+  -> (String -> Eff (readline :: READLINE | eff) Unit)
+  -> Interface
+  -> Eff (readline :: READLINE | eff) Unit
+
 -- | Set the prompt.
 foreign import setPrompt
   :: forall eff