Skip to content

Commit 78dd14b

Browse files
committed
Require a full spec, not a spec builder
1 parent 8665fe0 commit 78dd14b

File tree

1 file changed

+6
-8
lines changed

1 file changed

+6
-8
lines changed

src/React/Halo/Internal/Eval.purs

Lines changed: 6 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -100,15 +100,13 @@ defaultEval =
100100
-- | Given an `EvalSpec` builder, it will return an eval function.
101101
mkEval ::
102102
forall m action state props.
103-
(EvalSpec props state action m -> EvalSpec props state action m) ->
103+
EvalSpec props state action m ->
104104
Lifecycle props action -> HaloM props state action m Unit
105-
mkEval f = case _ of
106-
Initialize props -> traverse_ eval.onAction $ eval.onInitialize props
107-
Update old new -> traverse_ eval.onAction $ eval.onUpdate old new
108-
Action action -> eval.onAction action
109-
Finalize -> traverse_ eval.onAction eval.onFinalize
110-
where
111-
eval = f defaultEval
105+
mkEval spec = case _ of
106+
Initialize props -> traverse_ spec.onAction $ spec.onInitialize props
107+
Update old new -> traverse_ spec.onAction $ spec.onUpdate old new
108+
Action action -> spec.onAction action
109+
Finalize -> traverse_ spec.onAction spec.onFinalize
112110

113111
-- | Simple way to run Aff logic asynchronously, while bringing errors back into Effect.
114112
runAff :: Aff Unit -> Effect Unit

0 commit comments

Comments
 (0)