Commit 0dd521cb authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[Config] add demo end config

parent 72455d0a
......@@ -33,9 +33,18 @@ endConfigStateful = endConfig
endConfig :: EndConfig
endConfig = devEndConfig
demoEndConfig :: EndConfig
demoEndConfig = demoEndConfig' V10
devEndConfig :: EndConfig
devEndConfig = devEndConfig' V10
demoEndConfig' :: ApiVersion -> EndConfig
demoEndConfig' v = { front : frontRelative
, back: backDemo v
, static : staticRelative
}
devEndConfig' :: ApiVersion -> EndConfig
devEndConfig' v = { front : frontRelative
, back: backDev v
......@@ -59,6 +68,11 @@ type EndConfigOption = {
endConfigOptions :: Array EndConfigOption
endConfigOptions = [
{
endConfig: demoEndConfig
, displayName: "demo"
}
,
{
endConfig: devEndConfig
, displayName: "dev"
......
......@@ -359,8 +359,8 @@ endConfigChooser (configState /\ setConfigState) = R.createElement el {} []
liItem :: C.EndConfigOption -> R.Element
liItem {endConfig, displayName} =
--H.li {on: {click: \_ -> setConfigState $ \st -> st {endConfig = endConfig}}}
H.li {}
H.li {on: {click: \_ -> setConfigState $ \st -> st {endConfig = endConfig}}}
--H.li {}
[ H.a {href: "#"} [H.text displayName] ]
......
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