Skip to content

Commit 07df783

Browse files
author
Michael Trotter
committed
Capture forall bug
1 parent 7e5b24b commit 07df783

1 file changed

Lines changed: 6 additions & 2 deletions

File tree

examples/controlled-input/src/ControlledInput.purs

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@ module ControlledInput where
33
import Prelude
44

55
import Data.Maybe (Maybe(..), fromMaybe, maybe)
6+
import Effect.Console (logShow)
67
import React.Basic (Component, JSX, StateUpdate(..), createComponent, make)
78
import React.Basic as React
89
import React.Basic.DOM as R
@@ -28,7 +29,10 @@ render = make component
2829
, timestamp = Just timestamp
2930
}
3031

31-
, render = \self ->
32+
, render = render
33+
}
34+
where
35+
render self =
3236
React.fragment
3337
[ R.input
3438
{ onChange:
@@ -40,7 +44,7 @@ render = make component
4044
, R.p_ [ R.text ("Current value = " <> show self.state.value) ]
4145
, R.p_ [ R.text ("Changed at = " <> maybe "never" show self.state.timestamp) ]
4246
]
43-
}
47+
4448

4549
component :: Component
4650
component = createComponent "ControlledInput"

0 commit comments

Comments
 (0)