mtgsearch/app/Main.hs

module Main (main) where
import System.Environment   
import Site.Host
import Seed ( seedData )
import Lib


main :: IO ()
main = do
    args <- getArgs
    case args of
        ["--seed"] -> seedData
        _ -> host
initial commit 2023-03-16 14:54:10 +00:00			`module Main (main) where`
			`import System.Environment`
Initial simple search has been implemented 2023-04-11 14:39:44 +00:00			`import Site.Host`
need to clear IO somehow, possibly done by performing the bottom queries by themselves, then performing the operators on the pure lists 2023-04-29 19:36:42 +00:00			`import Seed ( seedData )`
initial commit 2023-03-16 14:54:10 +00:00			`import Lib`

Initial simple search has been implemented 2023-04-11 14:39:44 +00:00
initial commit 2023-03-16 14:54:10 +00:00			`main :: IO ()`
			`main = do`
			`args <- getArgs`
			`case args of`
			`["--seed"] -> seedData`
Initial simple search has been implemented 2023-04-11 14:39:44 +00:00			`_ -> host`