diff --git a/IHP/IDE/ToolServer/Layout.hs b/IHP/IDE/ToolServer/Layout.hs
index fc528af32..319ffaae7 100644
--- a/IHP/IDE/ToolServer/Layout.hs
+++ b/IHP/IDE/ToolServer/Layout.hs
@@ -47,7 +47,7 @@ toolServerLayout inner = H.docTypeHtml ! A.lang "en" $ [hsx|
-
IHP
+
{ihpEditionTitle}
{apps}
{schema}
{data_}
@@ -131,6 +131,12 @@ toolServerLayout inner = H.docTypeHtml ! A.lang "en" $ [hsx|
|]
+ ihpEditionTitle = case Version.ihpEdition of
+ Version.Basic -> [hsx|IHP|]
+ Version.Pro -> [hsx|IHP Pro|]
+ Version.Business -> [hsx|IHP
Business|]
+ Version.Enterprise -> [hsx|IHP
Enterprise|]
+
appNavItem :: Text -> Html
appNavItem "Web" = navItem "APP" fileIcon (appUrl <> "/") False
appNavItem name = navItem (toUpper name) fileIcon (appUrl <> "/" <> (toLower name) <> "/") False
diff --git a/IHP/Version.hs b/IHP/Version.hs
index 079f87636..7626d93d5 100644
--- a/IHP/Version.hs
+++ b/IHP/Version.hs
@@ -9,7 +9,7 @@ import IHP.Prelude
import qualified Paths_ihp
import Data.Version (showVersion)
-data Edition = Basic | Pro | Business
+data Edition = Basic | Pro | Business | Enterprise
deriving (Eq, Show)
-- | Returns the git commit hash of https://github.com/digitallyinduced/ihp at which this IHP version was built