1 files changed, 3 insertions, 2 deletions
diff --git a/material/material.ur b/material/material.ur
index f63bec0..5a2f72d 100644
--- a/material/material.ur
+++ b/material/material.ur
@@ -130,14 +130,15 @@ structure FloatingActionButton = struct
   val width = 56
   val height = 56
 
-  fun make s =
+  fun make s clickHandler =
     inkCenter <- source None;
     return <xml>
       <div class={container}>
         <button
           class={element}
           onclick={fn click =>
-             set inkCenter (Some {X = click.ClientX, Y = click.ClientY})
+             set inkCenter (Some {X = click.ClientX, Y = click.ClientY});
+             clickHandler click
           }
         >
           {icon s}