Merge pull request #1 from aspidites/close

Added close function.

Author: paf31

docs/Node/ReadLine.md

@@ -63,6 +63,14 @@ createInterface :: forall eff. Completer eff -> Eff (console :: CONSOLE | eff) I
 
 Create an interface with the specified completion function.
 
+#### `close`
+
+``` purescript
+close :: forall eff. Interface -> Eff (console :: CONSOLE | eff) Interface
+```
+
+Close the specified `Interface`.
+
 #### `noCompletion`
 
 ``` purescript

src/Node/ReadLine.js

@@ -46,3 +46,10 @@ 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,6 +12,9 @@ main = do
 
   setPrompt "> " 2 interface
   prompt interface
-  setLineHandler interface $ \s -> do
-    log $ "You typed: " ++ s
-    prompt interface
+  setLineHandler interface $ \s ->
+    if s == "quit"
+       then close interface
+       else do
+        log $ "You typed: " ++ s
+        prompt interface