Merged with upstream.

Author: AphonicChaos

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": [

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.

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

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

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