Skip to content

Commit 0856e40

Browse files
koterpillarsharkdp
authored andcommitted
Remove unneeded helper function
1 parent bc62b1c commit 0856e40

File tree

2 files changed

+0
-5
lines changed

2 files changed

+0
-5
lines changed

html/index.html

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -175,8 +175,6 @@ <h3>Example 14: Color picker (running Flare inside Flare)</h3>
175175
<*> is "Green" 0
176176
<*> is "Blue" 100
177177

178-
inner = runFlareHTML "controls14b" "output14" <<< map toHTML <<< uiColor
179-
180178
ui = traverse_ toHTML <$>
181179
select "Color domain" (HSL :| [RGB]) showDomain `innerFlare` uiColor
182180
</pre>

test/Main.purs

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -180,9 +180,6 @@ uiColor RGB = rgb <$> is "Red" 200
180180
<*> is "Green" 0
181181
<*> is "Blue" 100
182182

183-
inner :: forall e. Domain -> Eff (dom :: DOM, channel :: CHANNEL | e) Unit
184-
inner = runFlareHTML "controls14b" "output14" <<< map toHTML <<< uiColor
185-
186183
ui14 :: forall e m. UI e (H.Markup m)
187184
ui14 = traverse_ toHTML <$>
188185
select "Color domain" (HSL :| [RGB]) showDomain `innerFlare` uiColor

0 commit comments

Comments
 (0)