diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-04-01 19:33:07 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-04-01 19:33:07 +0200 |
| commit | 10327858acc48286cec97ebc4f01b6aa2e7ae460 (patch) | |
| tree | 35a4e45a03b16b046c18646206e65832308f7343 /src/Main.hs | |
| parent | 1eacd0f0b02c40c94d063d4cebc2343c882f50bb (diff) | |
Derive version number from git if available
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 54e121b..795cabe 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -43,6 +43,7 @@ import Text.Blaze.Html.Renderer.String import JavaScript qualified as JS import Storage.Cache import Storage.IndexedDB +import Version import WebSocket (startClient, receiveMessage) main :: IO () @@ -208,7 +209,7 @@ setup = do H.button ! A.type_ "submit" $ "set name" H.div ! A.id "version" $ do - "v0.1.0" + H.toHtml versionLine when (js_string_is_null experimentalAccepted) $ do H.div ! A.id "experimental_warning" $ do |