accelerate-examples-0.15.1.0: examples/pagerank/Main.hs

{-# LANGUAGE PatternGuards #-}

-- An implementation of PageRank based off of Ben Lippmeier's Repa
-- implementation (http://repa.ouroborus.net/).
--

import Config
import Count
import Rank

import Control.Monad
import Data.Char
import Data.Label                 ( get )
import System.Environment
import System.Exit

import Data.Array.Accelerate.Examples.Internal


main :: IO ()
main = do
  beginMonitoring
  argv                                     <- getArgs
  (conf, opts, linksPath : titlesPath : _) <- parseArgs options defaults header footer argv

  let backend   = get optBackend opts
      steps     = get configSteps conf
      chunk     = get configChunkSize conf

  if get configCount conf
     then void (countPages linksPath)
     else rank backend steps chunk linksPath titlesPath