14 lines
307 B
Haskell
14 lines
307 B
Haskell
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
|