-- | makeQueryTable gets a pool of htmlpages and return the table with ranks
makeQueryTable :: [(URI,HTMLDoc,[URI])] -> ResultTable
makeQueryTable pagePool = makeTable  webGraph pagesRank
  where
    webGraph  = buildWebGraph pagePool
    pagesRank = rankPages webGraph
makeQueryTable :: [(URI,HTMLDoc,[URI])] -> ResultTable
makeQueryTable pagePool = makeTable  webGraph pagesRank
  where
    webGraph  = buildWebGraph pagePool
    pagesRank = rankPages webGraph
makeQueryTable pagePool = makeTable  webGraph pagesRank
  where
    webGraph  = buildWebGraph pagePool
    pagesRank = rankPages webGraph