Commit 69db70a9 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[VERSION] putting a string to see if there is no backend route yet.

parent 1d616285
...@@ -239,7 +239,7 @@ versionCpt :: R.Component VersionProps ...@@ -239,7 +239,7 @@ versionCpt :: R.Component VersionProps
versionCpt = R.hooksComponent "G.C.A.version" cpt versionCpt = R.hooksComponent "G.C.A.version" cpt
where where
cpt { session } _ = do cpt { session } _ = do
(ver /\ setVer) <- R.useState' "" (ver /\ setVer) <- R.useState' "No Backend Version"
R.useEffect' $ do R.useEffect' $ do
launchAff_ $ do launchAff_ $ do
...@@ -250,7 +250,7 @@ versionCpt = R.hooksComponent "G.C.A.version" cpt ...@@ -250,7 +250,7 @@ versionCpt = R.hooksComponent "G.C.A.version" cpt
H.footer {} H.footer {}
[ [
H.span {} [ H.text $ "Frontend version: " <> GV.version <> ", " ] H.span {} [ H.text $ "Frontend version: " <> GV.version <> ", " ]
, H.span {} [ H.text $ "backend version: " <> ver ] , H.span {} [ H.text $ "backend version: " <> ver ]
, warning ver GV.version , warning ver GV.version
] ]
] ]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment