Commit 4884ed36 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski Committed by James Laver

[Config] add demo end config

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