mtgsearch/app/Main.hs

module Main (main) where
import System.Environment   
import Site.Host
import Seed ( seedDataFile, seedDataWeb )
import Lib
import DataFetcher

main :: IO ()
main = do
    args <- getArgs
    case args of
        ["--seedFromFile"] -> seedDataFile
        ["--seedFromWeb"] -> seedDataWeb
        _ -> host