Haskell call Node.js file not working

It took me a really long time but following code works:

Haskell File:

import System.Process

main :: IO ()
main = 
    do 
        putStrLn "Give me the paragraphs \n"
        paragraphs <- getLine
        output <- readCreateProcess (shell "node lexrankReceiver.js") (paragraphs ++ "\n")
        putStrLn output

NodeJs File:

// Getting this to work took almost a full day. Javascript gets really freaky
// when using it on terminal. 


/* Import necessary modules. */ 
var lexrank = require('./Lexrank/lexrank.js');
const readline = require('readline');
// var Type = require('type-of-is');
// var utf8 = require('utf8');


// Create readline interface, which needs to be closed in the end.
const rl = readline.createInterface({
  input: process.stdin,
  output: process.stdout
});

// Set stdin and stdout to be encoded in utf8. Haskell passes string as basic 
// 8-bit unsigned integer array. The output also needs to be encoded so that 
// Haskell can read them
process.stdin.setEncoding('utf8');
process.stdout.setEncoding('utf8');

// If a string is readable, start reading. 
process.stdin.on('readable', () => {
  var chunk = process.stdin.read();

  if (chunk !== null) {

    var originalText = chunk;

    var topLines = lexrank.summarize(originalText, 5, function (err, toplines, text) {
      if (err) {
        console.log(err);
      }

      // Loop through the result to form a new paragraph consisted of most 
      // important sentences in ascending order. Had to split the 0 index and
      // the rest indices otherwise the first thing in newParagraphs will be
      // undefined. 
      var newParagraphs = (toplines[0])['text'];

      for (var i = 1; i < toplines.length; i++) {
        newParagraphs += (toplines[i])['text'];
      }

      console.log(newParagraphs);

    });
  }
});

// After the output is finished, set end of file. 
// TODO: write a handler for end of writing output.
process.stdin.on('end', () => {
  process.stdout.write('\n');
});

// It is incredibly important to close readline. Otherwise, input doesn't 
// get sent out. 
rl.close();

The problem with the Haskell program you have is that paragraphs is not a line of input, just a string, so to fix the issue you can append a newline, something like:

output <- readCreateProcess (shell "node try2.js") $ paragraphs ++ "\n"

To find this issue I tried replacing question with a shim:

rl.question = function(prompt, cb) {
  rl.on('line', function(thing) {
    console.log(prompt);
    cb(thing);
  })
}

And that worked, so I knew it was something to do with how question handles stdin. So after this I tried appending a newline and that worked. Which means question requires a 'line' of input, not just any string, unlike on('line'), oddly enough.