diff --git a/drop/APIStuff.purs b/drop/APIStuff.purs
new file mode 100644
index 0000000..7fabf1b
--- /dev/null
+++ b/drop/APIStuff.purs
@@ -0,0 +1,3 @@
+maybeCurrentConnection <- H.gets _.wsInfo.connection
+when (isJust maybeCurrentConnection) do
+  H.modify_ _ { wsInfo { connection = Nothing, reconnect = true } }
diff --git a/drop/ClassName.purs b/drop/ClassName.purs
new file mode 100644
index 0000000..514903f
--- /dev/null
+++ b/drop/ClassName.purs
@@ -0,0 +1,7 @@
+
+btn_delete :: forall w i. (MouseEvent -> i) -> HH.HTML w i
+btn_delete action
+  = HH.button
+      [ HE.onClick action
+      , HP.classes [ HH.ClassName "button is-small is-danger" ]
+      ] [ HH.text "remove" ]