Merge pull request #2155 from CSchank/master

Change IDE approot name

Author: mpscholten

ihp-ide/IHP/IDE/ToolServer.hs

@@ -73,7 +73,7 @@ startToolServer' toolServerApplication port isDebugMode liveReloadClients = do
     store <- fmap clientsessionStore (ClientSession.getKey "Config/client_session_key.aes")
     let sessionMiddleware :: Wai.Middleware = withSession store "SESSION" (frameworkConfig.sessionCookie) sessionVaultKey
 
-    approotMiddleware <- Approot.envFallback
+    approotMiddleware <- Approot.envFallbackNamed "IDE_APPROOT"
 
     staticApp <- initStaticApp
 
@@ -157,4 +157,4 @@ instance ControllerSupport.InitControllerContext ToolServerApplication where
 readDatabaseNeedsMigration :: (?context :: ControllerContext) => IO Bool
 readDatabaseNeedsMigration = do
     context <- fromContext @ToolServerApplication
-    readIORef context.databaseNeedsMigration
+    readIORef context.databaseNeedsMigration