File tree Expand file tree Collapse file tree 2 files changed +0
-5
lines changed Expand file tree Collapse file tree 2 files changed +0
-5
lines changed Original file line number Diff line number Diff line change @@ -175,8 +175,6 @@ <h3>Example 14: Color picker (running Flare inside Flare)</h3>
175
175
< *> is "Green" 0
176
176
< *> is "Blue" 100
177
177
178
- inner = runFlareHTML "controls14b" "output14" < < < map toHTML < < < uiColor
179
-
180
178
ui = traverse_ toHTML < $>
181
179
select "Color domain" (HSL :| [RGB]) showDomain `innerFlare` uiColor
182
180
</ pre >
Original file line number Diff line number Diff line change @@ -180,9 +180,6 @@ uiColor RGB = rgb <$> is "Red" 200
180
180
<*> is " Green" 0
181
181
<*> is " Blue" 100
182
182
183
- inner :: forall e . Domain -> Eff (dom :: DOM , channel :: CHANNEL | e ) Unit
184
- inner = runFlareHTML " controls14b" " output14" <<< map toHTML <<< uiColor
185
-
186
183
ui14 :: forall e m . UI e (H.Markup m )
187
184
ui14 = traverse_ toHTML <$>
188
185
select " Color domain" (HSL :| [RGB ]) showDomain `innerFlare` uiColor
You can’t perform that action at this time.
0 commit comments