Fixed hardcoded localhost url in devtool navigation

digitallyinduced · Sep 4, 2021 · 6acc01a · 6acc01a
1 parent fab88af
commit 6acc01a
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/IHP/IDE/ToolServer.hs b/IHP/IDE/ToolServer.hs
@@ -131,9 +131,11 @@ instance ControllerSupport.InitControllerContext ToolServerApplication where
     initContext = do
         availableApps <- AvailableApps <$> findApplications
         webControllers <- WebControllers <$> findWebControllers
-        let appUrl = AppUrl ("http://localhost:" <> tshow Helper.appPort)
+
+        let defaultAppUrl = "http://localhost:" <> tshow Helper.appPort
+        appUrl :: Text <- fromMaybe defaultAppUrl <$> fmap cs <$> Env.lookupEnv "IHP_BASEURL"
 
         putContext availableApps
         putContext webControllers
-        putContext appUrl
+        putContext (AppUrl appUrl)
         setLayout Layout.toolServerLayout