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.

Author: dgendill

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) {

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