Add old code, for reference.

drop/APIStuff.purs

@@ -0,0 +1,3 @@
+maybeCurrentConnection <- H.gets _.wsInfo.connection
+when (isJust maybeCurrentConnection) do
+  H.modify_ _ { wsInfo { connection = Nothing, reconnect = true } }

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" ]