Merged with upstream.

purescript-node · Aug 10, 2015 · 7639208 · 7639208
2 parents 584ce83 + a712652
commit 7639208
Show file tree

Hide file tree

Showing 5 changed files with 11 additions and 15 deletions.
diff --git a/bower.json b/bower.json
@@ -6,7 +6,7 @@
   ],
   "repository": {
     "type": "git",
-    "url": "git@github.com:purescript-node/purescript-node-readline.git"
+    "url": "git://github.com/purescript-node/purescript-node-readline.git"
   },
   "license": "MIT",
   "ignore": [

diff --git a/docs/Node/ReadLine.md b/docs/Node/ReadLine.md
@@ -34,7 +34,7 @@ A function which handles input from the user.
 #### `setLineHandler`
 
 ``` purescript
-setLineHandler :: forall eff a. LineHandler eff a -> Interface -> Eff (console :: CONSOLE | eff) Interface
+setLineHandler :: forall eff a. Interface -> LineHandler eff a -> Eff (console :: CONSOLE | eff) Interface
 ```
 
 Set the current line handler function.

diff --git a/src/Node/ReadLine.js b/src/Node/ReadLine.js
@@ -3,8 +3,8 @@
 
 // module Node.ReadLine
 
-exports.setLineHandler = function(callback) {
-    return function(readline) {
+exports.setLineHandler = function(readline) {
+    return function(callback) {
         return function() {
             readline.removeAllListeners('line');
             readline.on('line', function(line) {

diff --git a/src/Node/ReadLine.purs b/src/Node/ReadLine.purs
@@ -22,7 +22,7 @@ type Completer eff = String -> Eff (console :: CONSOLE | eff) { completions :: A
 type LineHandler eff a = String -> Eff (console :: CONSOLE | eff) a 
 
 -- | Set the current line handler function.
-foreign import setLineHandler :: forall eff a. LineHandler eff a -> Interface -> Eff (console :: CONSOLE | eff) Interface
+foreign import setLineHandler :: forall eff a. Interface -> LineHandler eff a -> Eff (console :: CONSOLE | eff) Interface
 
 -- | Prompt the user for input on the specified `Interface`.
 foreign import prompt :: forall eff. Interface -> Eff (console :: CONSOLE | eff) Interface

diff --git a/test/Main.purs b/test/Main.purs
@@ -10,15 +10,11 @@ import Node.ReadLine
 main = do
   interface <- createInterface noCompletion
 
-  let
-    lineHandler s = do
-      if s == "quit"
-        then do
-          close interface
-        else do
-          log $ "You typed: " ++ s
-          prompt interface
-
   setPrompt "> " 2 interface
   prompt interface
-  setLineHandler lineHandler interface
+  setLineHandler interface $ \s ->
+    if s == "quit"
+       then close interface
+       else do
+        log $ "You typed: " ++ s
+        prompt interface