@@ -8,14 +8,18 @@ module Main
88
99import Control.Monad (msum)
1010import qualified Data.ByteString as BS
11+import Network.HTTP.Client (newManager)
12+import Network.HTTP.Client.TLS (tlsManagerSettings)
1113import Snap.Core
1214import Snap.Http.Server
15+import qualified System.Environment as Env
1316
1417import qualified Artifacts
1518import qualified Cors
1619import qualified Endpoint.Compile as Compile
1720import qualified Endpoint.Quotes as Quotes
1821import qualified Endpoint.Repl as Repl
22+import qualified Endpoint.Slack as Slack
1923
2024
2125
@@ -24,9 +28,11 @@ import qualified Endpoint.Repl as Repl
2428
2529main :: IO ()
2630main =
27− do rArtifacts <- Artifacts.loadRepl
31+ do manager <- newManager tlsManagerSettings
32+ slackToken <- Env.getEnv "SLACK_TOKEN"
33+ rArtifacts <- Artifacts.loadRepl
2834 cArtifacts <- Artifacts.loadCompile
29− errorJS <- Compile.loadErrorJS
35+ errorJS <- Compile.loadErrorJS
3036 let depsInfo = Artifacts.toDepsInfo cArtifacts
3137
3238 httpServe config $ msum $
@@ -37,6 +43,7 @@ main =
3743 , path "compile/errors.js" $ serveJavaScript errorJS
3844 , path "compile/deps-info.json" $ serveDepsInfo depsInfo
3945 , path "quotes" $ Quotes.endpoint
46+ , path "slack-invite" $ Slack.endpoint slackToken manager
4047 , notFound
4148 ]
4249