Added close function.

Author: AphonicChaos

src/Node/ReadLine.js

@@ -45,4 +45,11 @@ exports.createInterface = function(completer) {
             }
         });
     };
-};
+};
+
+exports.close = function(readline) {
+    return function() {
+        readline.close();
+        return readline;
+    };
+};

src/Node/ReadLine.purs

@@ -33,6 +33,9 @@ foreign import setPrompt :: forall eff. String -> Int -> Interface -> Eff (conso
 -- | Create an interface with the specified completion function.
 foreign import createInterface :: forall eff. Completer eff -> Eff (console :: CONSOLE | eff) Interface
 
+-- | Close the specified `Interface`.
+foreign import close :: forall eff. Interface -> Eff (console :: CONSOLE | eff) Interface
+
 -- | A completion function which offers no completions.
 noCompletion :: forall eff. Completer eff
 noCompletion s = return { completions: [], matched: s }

test/Main.purs

@@ -12,8 +12,12 @@ main = do
 
   let
     lineHandler s = do
-      log $ "You typed: " ++ s
-      prompt interface
+      if s == "quit"
+        then do
+          close interface
+        else do
+          log $ "You typed: " ++ s
+          prompt interface
 
   setPrompt "> " 2 interface
   prompt interface