Update examples to use new Event type

Author: JordanMartinez

examples/Components/Dropdown.purs

@@ -34,7 +34,7 @@ type Input =
 component :: H.Component HH.HTML S.Query' Input Message Aff
 component = S.component input $ S.defaultSpec
   { render = render
-  , handleMessage = handleMessage
+  , handleEvent = handleEvent
   }
   where
   input :: Input -> S.Input State
@@ -48,8 +48,8 @@ component = S.component input $ S.defaultSpec
     , selection: Nothing
     }
 
-  handleMessage :: S.Message -> H.HalogenM (S.State State) S.Action' () Message Aff Unit
-  handleMessage = case _ of
+  handleEvent :: S.Event -> H.HalogenM (S.State State) S.Action' () Message Aff Unit
+  handleEvent = case _ of
     S.Selected ix -> do
       st <- H.get
       let selection = st.items !! ix

examples/Components/Typeahead.purs

@@ -51,7 +51,7 @@ component = S.component (const input) $ S.defaultSpec
   { render = render
   , handleAction = handleAction
   , handleQuery = handleQuery
-  , handleMessage = handleMessage
+  , handleEvent = handleEvent
   }
   where
   -- this typeahead will be opaque; users can just use this pre-built
@@ -66,10 +66,10 @@ component = S.component (const input) $ S.defaultSpec
     , available: RD.NotAsked
     }
 
-  handleMessage
-    :: S.Message
+  handleEvent
+    :: S.Event
     -> H.HalogenM (S.State State) (S.Action Action) ChildSlots Message Aff Unit
-  handleMessage = case _ of
+  handleEvent = case _ of
     S.Selected ix -> do
       st <- H.get
       for_ st.available \arr ->