tvl-depot/users/wpcarro/assessments/tt/src/Main.hs

--------------------------------------------------------------------------------
module Main where
--------------------------------------------------------------------------------
import qualified App
import qualified System.Envy as Envy
--------------------------------------------------------------------------------

main :: IO ()
main = do
  mEnv <- Envy.decodeEnv
  case mEnv of
    Left err -> putStrLn err
    Right env -> App.run env
Read env variables using envy library Using my dear friend's, dmjio's, excellent library, envy -- to read and parse variables from the system environment. I added and git-ignored the .envrc file that contains API secrets. I'm using Envy to read these values, so that I don't hard-code these values into the source code. 2020-07-30 13:58:50 +01:00			`--------------------------------------------------------------------------------`
Support a basic API Use Servant to create a REST API supporting the following routes: - GET /number - POST /other The server interacts with a SQLite database. 2020-07-24 19:00:29 +01:00			`module Main where`
Integrate Persistent with Servant Query my SQLite database from within my Servant handlers. Nothing I've written is domain-specific to the business logic yet -- I'm just making sure everything integrates. 2020-07-24 22:46:54 +01:00			`--------------------------------------------------------------------------------`
			`import qualified App`
Read env variables using envy library Using my dear friend's, dmjio's, excellent library, envy -- to read and parse variables from the system environment. I added and git-ignored the .envrc file that contains API secrets. I'm using Envy to read these values, so that I don't hard-code these values into the source code. 2020-07-30 13:58:50 +01:00			`import qualified System.Envy as Envy`
Integrate Persistent with Servant Query my SQLite database from within my Servant handlers. Nothing I've written is domain-specific to the business logic yet -- I'm just making sure everything integrates. 2020-07-24 22:46:54 +01:00			`--------------------------------------------------------------------------------`
Support a basic API Use Servant to create a REST API supporting the following routes: - GET /number - POST /other The server interacts with a SQLite database. 2020-07-24 19:00:29 +01:00
			`main :: IO ()`
Read env variables using envy library Using my dear friend's, dmjio's, excellent library, envy -- to read and parse variables from the system environment. I added and git-ignored the .envrc file that contains API secrets. I'm using Envy to read these values, so that I don't hard-code these values into the source code. 2020-07-30 13:58:50 +01:00			`main = do`
			`mEnv <- Envy.decodeEnv`
			`case mEnv of`
			`Left err -> putStrLn err`
			`Right env -> App.run env`