Merge remote-tracking branch 'origin/main' into davezuch/datetime-components

Author: davezuch

src/DatePicker.purs

@@ -276,7 +276,7 @@ embeddedHandleQuery = case _ of
   SetDisabled disabled a -> Just a <$ do
     H.modify_ _ { disabled = disabled }
   SetSelection selection a -> Just a <$ do
-    setSelection selection
+    setSelectionWithoutRaising selection
 
 embeddedInitialize :: Maybe EmbeddedAction
 embeddedInitialize = Just Initialize
@@ -492,10 +492,14 @@ renderSelect y m visibility calendarItems =
 
 setSelection :: forall m. MonadAff m => Maybe Date -> CompositeComponentM m Unit
 setSelection selection = do
+  setSelectionWithoutRaising selection
+  H.raise $ SelectionChanged selection
+
+setSelectionWithoutRaising :: forall m. MonadAff m => Maybe Date -> CompositeComponentM m Unit
+setSelectionWithoutRaising selection = do
   st <- H.get
   let targetDate = maybe st.targetDate (\d -> (year d) /\ (month d)) selection
   H.modify_ _ { selection = selection, targetDate = targetDate }
-  H.raise $ SelectionChanged selection
   synchronize
 
 spec :: forall m. MonadAff m => Spec m

src/TimePicker.purs

@@ -181,7 +181,7 @@ embeddedHandleQuery = case _ of
   SetDisabled disabled a -> Just a <$ do
     H.modify_ _ { disabled = disabled }
   SetSelection selection a -> Just a <$ do
-    setSelection selection
+    setSelectionWithoutRaising selection
 
 embeddedInput :: State -> CompositeInput
 embeddedInput { selection, timeUnits, disabled } =
@@ -335,8 +335,12 @@ renderSelect visibility timeUnits =
 
 setSelection :: forall m. Maybe Time -> CompositeComponentM m Unit
 setSelection selection = do
-  H.modify_ _ { selection = selection }
+  setSelectionWithoutRaising selection
   H.raise $ SelectionChanged selection
+
+setSelectionWithoutRaising :: forall m. Maybe Time -> CompositeComponentM m Unit
+setSelectionWithoutRaising selection = do
+  H.modify_ _ { selection = selection }
   synchronize
 
 spec :: forall m. MonadAff m => Spec m
@@ -354,4 +358,4 @@ synchronize = do
   H.modify_ _ { timeUnits = generateTimes selection }
   case selection of
     Nothing -> pure unit
-    Just time -> H.modify_ _ { search = ODT.formatTime time }
+    Just time -> H.modify_ _ { search = ODT.formatTime time }