summaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2026-04-01 19:33:07 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2026-04-01 19:33:07 +0200
commit10327858acc48286cec97ebc4f01b6aa2e7ae460 (patch)
tree35a4e45a03b16b046c18646206e65832308f7343 /src/Main.hs
parent1eacd0f0b02c40c94d063d4cebc2343c882f50bb (diff)
Derive version number from git if available
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs3
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