website/sandbox/learnpianochords/src/server/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

--------------------------------------------------------------------------------
module Main where
--------------------------------------------------------------------------------
import RIO
import Prelude (putStr, putStrLn)

import qualified Types as T
import qualified System.Envy as Envy
import qualified App
--------------------------------------------------------------------------------

-- | Attempt to read environment variables from the system and initialize the
-- Context data type for our application.
getAppContext :: IO (Either String T.Context)
getAppContext = do
  mEnv <- Envy.decodeEnv
  case mEnv of
    Left err -> pure $ Left err
    Right T.Env{..} -> pure $ Right T.Context
      { contextGoogleClientID = envGoogleClientID
      , contextStripeAPIKey = envStripeAPIKey
      , contextServerPort = envServerPort
      , contextClientPort = envClientPort
      }

main :: IO ()
main = do
  mContext <- getAppContext
  case mContext of
    Left err -> putStrLn err
    Right ctx -> do
      result <- runRIO ctx App.run
      case result of
        Left err -> do
          putStr "Something went wrong when executing the application: "
          putStrLn $ show err
        Right _ -> putStrLn "The application successfully executed."