From b3e422c38f133858dccd9bae906395972eaa7d12 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Mon, 10 Jul 2023 03:15:03 +0200
Subject: [PATCH] Remove the App.Button module (only served as an example).

---
 src/App/Button.purs | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 src/App/Button.purs

diff --git a/src/App/Button.purs b/src/App/Button.purs
deleted file mode 100644
index f619516..0000000
--- a/src/App/Button.purs
+++ /dev/null
@@ -1,34 +0,0 @@
-module App.Button where
-
-import Prelude
-import Halogen as H
-import Halogen.HTML as HH
-import Halogen.HTML.Events as HE
-
-type State
-  = { count :: Int }
-
-data Action
-  = Increment
-
-component :: forall q i o m. H.Component q i o m
-component =
-  H.mkComponent
-    { initialState: \_ -> { count: 0 }
-    , render
-    , eval: H.mkEval H.defaultEval { handleAction = handleAction }
-    }
-
-render :: forall cs m. State -> H.ComponentHTML Action cs m
-render state =
-  HH.div_
-    [ HH.p_
-        [ HH.text $ "You clicked " <> show state.count <> " times" ]
-    , HH.button
-        [ HE.onClick \_ -> Increment ]
-        [ HH.text "Click me" ]
-    ]
-
-handleAction :: forall cs o m. Action → H.HalogenM State Action cs o m Unit
-handleAction = case _ of
-  Increment -> H.modify_ \st -> st { count = st.count + 1 }