Skip to content

Commit

Permalink
Fixed hardcoded localhost url in devtool navigation
Browse files Browse the repository at this point in the history
  • Loading branch information
mpscholten committed Sep 4, 2021
1 parent fab88af commit 6acc01a
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions IHP/IDE/ToolServer.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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

0 comments on commit 6acc01a

Please sign in to comment.