tutor/app/Main.hs

module Main where

import Lib
import Data.Maybe
import System.Environment

main :: IO ()
main = do
  dbFile <- lookupEnv "TUTOR_DATABASE"
  startApp (fromMaybe "tutor.db" dbFile)
Add initial servant API implementation 2022-03-23 02:59:25 +00:00			`module Main where`

			`import Lib`
Load cards from the sqlite database 2022-03-26 20:20:28 +00:00			`import Data.Maybe`
			`import System.Environment`
Add initial servant API implementation 2022-03-23 02:59:25 +00:00
			`main :: IO ()`
Load cards from the sqlite database 2022-03-26 20:20:28 +00:00			`main = do`
			`dbFile <- lookupEnv "TUTOR_DATABASE"`
			`startApp (fromMaybe "tutor.db" dbFile)`