Find module dependencies in a haskell project

scan.js

var fs = require('fs');


var map = {};
var seen = {};
 
function go(module, indent) {
    if (!!seen[module]) return;
    console.log(indent + module);
    seen[module] = true;

    var file = 'src-parser/' + module.replace(/\./g, '/') + '.hs';
    fs.readFile(file, 'utf8', function(err, contents) {
        if (err) {
            return;
        }

        var next;
        var re = /^import (qualified )?([^ \n]+)/mg;
        while (next = re.exec(contents)) {
            var dep = next[2];
            go(dep, indent + "");
        }
    });
}
 
go('Parse.Parse', "");