@@ -15,13 +15,13 @@ import Data.Set qualified as Set
15
15
import Data.Text qualified as Text
16
16
import Data.Text.Encoding qualified as Text
17
17
import Database.Redis qualified as Redis
18
- import Enlil .Env
19
- import Enlil .JWT qualified as JWT
20
- import Enlil .Prelude
21
- import Enlil .Utils.Deployment qualified as Deployment
22
- import Enlil .Utils.Logging qualified as Logging
23
- import Enlil .Utils.Servant.Cookies qualified as Cookies
24
- import Enlil .Web.Authentication (cookieSessionTTL )
18
+ import Share .Env
19
+ import Share .JWT qualified as JWT
20
+ import Share .Prelude
21
+ import Share .Utils.Deployment qualified as Deployment
22
+ import Share .Utils.Logging qualified as Logging
23
+ import Share .Utils.Servant.Cookies qualified as Cookies
24
+ import Share .Web.Authentication (cookieSessionTTL )
25
25
import Hasql.Pool qualified as Pool
26
26
import Network.URI (parseURI )
27
27
import Servant.API qualified as Servant
@@ -35,42 +35,42 @@ import Unison.Runtime.Interface as RT
35
35
36
36
withEnv :: (Env () -> IO a ) -> IO a
37
37
withEnv action = do
38
- apiOrigin <- fromEnv " ENLIL_API_ORIGIN " (pure . maybeToEither " Invalid ENLIL_API_ORIGIN " . parseURI)
39
- serverPort <- fromEnv " ENLIL_SERVER_PORT " readPort
38
+ apiOrigin <- fromEnv " SHARE_API_ORIGIN " (pure . maybeToEither " Invalid SHARE_API_ORIGIN " . parseURI)
39
+ serverPort <- fromEnv " SHARE_SERVER_PORT " readPort
40
40
shouldCheckForMigration <-
41
- lookupEnv " ENLIL_MIGRATE_ON_STARTUP " <&> \ case
41
+ lookupEnv " SHARE_MIGRATE_ON_STARTUP " <&> \ case
42
42
Nothing -> False
43
43
Just val -> case map Char. toLower val of
44
44
' f' : _ -> False
45
45
' 0' : _ -> False
46
46
[] -> False
47
47
_ -> True
48
- postgresConfig <- fromEnv " ENLIL_POSTGRES " (pure . Right . Text. pack)
49
- postgresConnMax <- fromEnv " ENLIL_POSTGRES_CONN_MAX " (pure . maybeToEither " Invalid ENLIL_POSTGRES_CONN_MAX " . readMaybe)
50
- githubClientID <- fromEnv " ENLIL_GITHUB_CLIENTID " (pure . Right . Text. pack)
51
- githubClientSecret <- fromEnv " ENLIL_GITHUB_CLIENT_SECRET " (pure . Right . Text. pack)
52
- hs256Key <- fromEnv " ENLIL_HMAC_KEY " (pure . Right . BS. pack)
53
- zendeskAPIUser <- fromEnv " ENLIL_ZENDESK_API_USER " (pure . Right . BS. pack)
54
- zendeskAPIToken <- fromEnv " ENLIL_ZENDESK_API_TOKEN " (pure . Right . BS. pack)
48
+ postgresConfig <- fromEnv " SHARE_POSTGRES " (pure . Right . Text. pack)
49
+ postgresConnMax <- fromEnv " SHARE_POSTGRES_CONN_MAX " (pure . maybeToEither " Invalid SHARE_POSTGRES_CONN_MAX " . readMaybe)
50
+ githubClientID <- fromEnv " SHARE_GITHUB_CLIENTID " (pure . Right . Text. pack)
51
+ githubClientSecret <- fromEnv " SHARE_GITHUB_CLIENT_SECRET " (pure . Right . Text. pack)
52
+ hs256Key <- fromEnv " SHARE_HMAC_KEY " (pure . Right . BS. pack)
53
+ zendeskAPIUser <- fromEnv " SHARE_ZENDESK_API_USER " (pure . Right . BS. pack)
54
+ zendeskAPIToken <- fromEnv " SHARE_ZENDESK_API_TOKEN " (pure . Right . BS. pack)
55
55
let zendeskAuth = Servant. BasicAuthData zendeskAPIUser zendeskAPIToken
56
- commitHash <- fromEnv " ENLIL_COMMIT " (pure . Right . Text. pack)
56
+ commitHash <- fromEnv " SHARE_COMMIT " (pure . Right . Text. pack)
57
57
minLogSeverity <-
58
- lookupEnv " ENLIL_LOG_LEVEL " >>= \ case
58
+ lookupEnv " SHARE_LOG_LEVEL " >>= \ case
59
59
Nothing -> pure Logging. Info
60
60
Just (map toUpper -> " DEBUG" ) -> pure Logging. Debug
61
61
Just (map toUpper -> " INFO" ) -> pure Logging. Info
62
62
Just (map toUpper -> " ERROR" ) -> pure Logging. Error
63
63
Just (map toUpper -> " USERERROR" ) -> pure Logging. UserFault
64
64
Just x -> putStrLn (" Unknown logging level: " <> x) >> exitWith (ExitFailure 1 )
65
- shareUiOrigin <- fromEnv " ENLIL_SHARE_UI_ORIGIN " (pure . maybeToEither " Invalid ENLIL_SHARE_UI_ORIGIN " . parseURI)
66
- websiteOrigin <- fromEnv " ENLIL_HOMEPAGE_ORIGIN " (pure . maybeToEither " Invalid ENLIL_HOMEPAGE_ORIGIN " . parseURI)
67
- cloudUiOrigin <- fromEnv " ENLIL_CLOUD_UI_ORIGIN " (pure . maybeToEither " Invalid ENLIL_CLOUD_UI_ORIGIN " . parseURI)
68
- maxParallelismPerDownloadRequest <- fromEnv " ENLIL_MAX_PARALLELISM_PER_DOWNLOAD_REQUEST " (pure . maybeToEither " Invalid ENLIL_MAX_PARALLELISM_PER_DOWNLOAD_REQUEST " . readMaybe)
69
- maxParallelismPerUploadRequest <- fromEnv " ENLIL_MAX_PARALLELISM_PER_UPLOAD_REQUEST " (pure . maybeToEither " Invalid ENLIL_MAX_PARALLELISM_PER_UPLOAD_REQUEST " . readMaybe)
70
- cloudWebsiteOrigin <- fromEnv " ENLIL_CLOUD_HOMEPAGE_ORIGIN " (pure . maybeToEither " Invalid ENLIL_CLOUD_HOMEPAGE_ORIGIN " . parseURI)
65
+ shareUiOrigin <- fromEnv " SHARE_SHARE_UI_ORIGIN " (pure . maybeToEither " Invalid SHARE_SHARE_UI_ORIGIN " . parseURI)
66
+ websiteOrigin <- fromEnv " SHARE_HOMEPAGE_ORIGIN " (pure . maybeToEither " Invalid SHARE_HOMEPAGE_ORIGIN " . parseURI)
67
+ cloudUiOrigin <- fromEnv " SHARE_CLOUD_UI_ORIGIN " (pure . maybeToEither " Invalid SHARE_CLOUD_UI_ORIGIN " . parseURI)
68
+ maxParallelismPerDownloadRequest <- fromEnv " SHARE_MAX_PARALLELISM_PER_DOWNLOAD_REQUEST " (pure . maybeToEither " Invalid SHARE_MAX_PARALLELISM_PER_DOWNLOAD_REQUEST " . readMaybe)
69
+ maxParallelismPerUploadRequest <- fromEnv " SHARE_MAX_PARALLELISM_PER_UPLOAD_REQUEST " (pure . maybeToEither " Invalid SHARE_MAX_PARALLELISM_PER_UPLOAD_REQUEST " . readMaybe)
70
+ cloudWebsiteOrigin <- fromEnv " SHARE_CLOUD_HOMEPAGE_ORIGIN " (pure . maybeToEither " Invalid SHARE_CLOUD_HOMEPAGE_ORIGIN " . parseURI)
71
71
72
72
sentryService <-
73
- lookupEnv " ENLIL_SENTRY_DSN " >>= \ case
73
+ lookupEnv " SHARE_SENTRY_DSN " >>= \ case
74
74
Nothing -> do
75
75
putStrLn " No Sentry configuration detected."
76
76
Sentry. disabledRaven
@@ -80,7 +80,7 @@ withEnv action = do
80
80
Sentry. initRaven dsn sentryTags Sentry. sendRecord Sentry. stderrFallback
81
81
82
82
redisConfig <-
83
- (fromEnv " ENLIL_REDIS " (pure . Redis. parseConnectInfo)) <&> \ r ->
83
+ (fromEnv " SHARE_REDIS " (pure . Redis. parseConnectInfo)) <&> \ r ->
84
84
let tlsParams
85
85
| Deployment. onLocal = Nothing
86
86
| otherwise = Nothing
@@ -93,15 +93,15 @@ withEnv action = do
93
93
pgConnectionPool <-
94
94
Pool. acquire postgresConnMax Nothing (Text. encodeUtf8 postgresConfig)
95
95
timeCache <- FL. newTimeCache FL. simpleTimeFormat -- E.g. 05/Sep/2023:13:23:56 -0700
96
- sandboxedRuntime <- RT. startRuntime True RT. Persistent " enlil "
96
+ sandboxedRuntime <- RT. startRuntime True RT. Persistent " share "
97
97
let requestCtx = ()
98
98
-- We use a zero-width-space to separate log-lines on ingestion, this allows us to use newlines for
99
99
-- formatting, but without affecting log-grouping.
100
100
let zeroWidthSpace = " \x200B "
101
101
FL. withFastLogger (FL. LogStderr FL. defaultBufSize) $ \ logger -> do
102
102
action $ Env {logger = (logger . (\ msg -> zeroWidthSpace <> msg <> " \n " )), .. }
103
103
where
104
- readPort p = pure $ maybeToRight " ENLIL_PORT was not a number" (readMaybe p)
104
+ readPort p = pure $ maybeToRight " SHARE_PORT was not a number" (readMaybe p)
105
105
106
106
fromEnv :: String -> (String -> IO (Either String a )) -> IO a
107
107
fromEnv var from = do
0 commit comments