clustering-louvain/app/Main.hs

   1 module Main where
   2
   3 import System.Environment (getArgs)
   4 import Data.Louvain
   5 import Data.Utils
   6 import Data.GexfParser
   7
   8
   9 main :: IO ()
  10 main = do
  11     [file] <- getArgs
  12     graph <- mkGraph' <$> importGraphFromGexf file
  13     print $ bestpartition True graph
  14
  15