From 95da82b6852893c1a23872aa381428026a0927be Mon Sep 17 00:00:00 2001 From: Miles Frain Date: Mon, 7 Dec 2020 15:12:26 -0800 Subject: [PATCH] Simplify ComponentsHalogenHooks --- recipes/ComponentsHalogenHooks/src/Main.purs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/recipes/ComponentsHalogenHooks/src/Main.purs b/recipes/ComponentsHalogenHooks/src/Main.purs index 0142032c..310e9aeb 100644 --- a/recipes/ComponentsHalogenHooks/src/Main.purs +++ b/recipes/ComponentsHalogenHooks/src/Main.purs @@ -1,6 +1,6 @@ module ComponentsHalogenHooks.Main where -import Prelude hiding (top) +import Prelude import Data.Maybe (Maybe(..), maybe) import Data.Symbol (SProxy(..)) @@ -49,12 +49,11 @@ containerComponent = Hooks.component \rec _ -> Hooks.do ] ] -data ButtonMessage = Toggled Boolean data ButtonQuery a = IsOn (Boolean -> a) buttonComponent :: forall unusedInput anyMonad - . H.Component HH.HTML ButtonQuery unusedInput ButtonMessage anyMonad + . H.Component HH.HTML ButtonQuery unusedInput Unit anyMonad buttonComponent = Hooks.component \rec _ -> Hooks.do enabled /\ enabledIdx <- Hooks.useState false Hooks.useQuery rec.queryToken case _ of @@ -66,7 +65,7 @@ buttonComponent = Hooks.component \rec _ -> Hooks.do HH.button [ HP.title label , HE.onClick \_ -> Just do - newState <- Hooks.modify enabledIdx not - Hooks.raise rec.outputToken $ Toggled newState + _ <- Hooks.modify enabledIdx not + Hooks.raise rec.outputToken unit ] [ HH.text label ]