Show IHP edition in navbar

digitallyinduced · Oct 18, 2021 · a5e62c9 · a5e62c9
1 parent 5960edb
commit a5e62c9
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/IHP/IDE/ToolServer/Layout.hs b/IHP/IDE/ToolServer/Layout.hs
@@ -47,7 +47,7 @@ toolServerLayout inner = H.docTypeHtml ! A.lang "en" $ [hsx|
 <body class="d-flex h-100 flex-row">
     <div id="nav">
         <img id="nav-logo" src="/ihp-icon.svg" alt="IHP: Integrated Haskell Platform">
-        <div id="ihp-plan">IHP</div>
+        <div id="ihp-plan">{ihpEditionTitle}</div>
         {apps}
         {schema}
         {data_}
@@ -131,6 +131,12 @@ toolServerLayout inner = H.docTypeHtml ! A.lang "en" $ [hsx|
             </a>
         |]
 
+        ihpEditionTitle = case Version.ihpEdition of
+            Version.Basic -> [hsx|IHP|]
+            Version.Pro -> [hsx|IHP Pro|]
+            Version.Business -> [hsx|IHP <br />Business|]
+            Version.Enterprise -> [hsx|IHP <br />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
@@ -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