Merge pull request #2 from aspidites/flipped

Flipped

Author: paf31

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) {
@@ -45,4 +45,4 @@ exports.createInterface = function(completer) {
             }
         });
     };
-};
+};

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,11 +10,8 @@ import Node.ReadLine
 main = do
   interface <- createInterface noCompletion
 
-  let
-    lineHandler s = do
-      log $ "You typed: " ++ s
-      prompt interface
-  
   setPrompt "> " 2 interface
   prompt interface
-  setLineHandler lineHandler interface
+  setLineHandler interface $ \s -> do
+    log $ "You typed: " ++ s
+    prompt interface