Merge pull request #1 from aspidites/close

Added close function.
purescript-node · Aug 10, 2015 · 3cd5719 · 3cd5719
2 parents a712652 + 7639208
commit 3cd5719
Show file tree

Hide file tree

Showing 4 changed files with 24 additions and 3 deletions.
diff --git a/docs/Node/ReadLine.md b/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

diff --git a/src/Node/ReadLine.js b/src/Node/ReadLine.js
@@ -46,3 +46,10 @@ exports.createInterface = function(completer) {
         });
     };
 };
+
+exports.close = function(readline) {
+    return function() {
+        readline.close();
+        return readline;
+    };
+};
diff --git a/src/Node/ReadLine.purs b/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 }

diff --git a/test/Main.purs b/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