From 54f49a2a0bf397151adf86d7274c7f3dde5cb25e Mon Sep 17 00:00:00 2001
From: Ivan Perez <ivan.perez@keera.co.uk>
Date: Fri, 9 Feb 2024 10:37:06 +0000
Subject: [PATCH 1/2] yampa: Simplify FRP.Yampa.Task.isEdge. Refs #287.

Simplify the definition of FRP.Yampa.Task.isEdge by changing the order
of cases in the definition.
---
 yampa/src/FRP/Yampa/Task.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/yampa/src/FRP/Yampa/Task.hs b/yampa/src/FRP/Yampa/Task.hs
index bde214eb..a6a03585 100644
--- a/yampa/src/FRP/Yampa/Task.hs
+++ b/yampa/src/FRP/Yampa/Task.hs
@@ -94,10 +94,8 @@ taskToSF tk = runTask tk
                                           "Task terminated!"))
                    &&& edgeBy isEdge (Left undefined))
   where
-    isEdge (Left _)  (Left _)  = Nothing
-    isEdge (Left _)  (Right c) = Just c
-    isEdge (Right _) (Right _) = Nothing
-    isEdge (Right _) (Left _)  = Nothing
+    isEdge (Left _) (Right c) = Just c
+    isEdge _        _         = Nothing
 
 -- * Functor, Applicative and Monad instance
 

From f76f9d0d069e25d51af7e015e9e89ba3fcca181f Mon Sep 17 00:00:00 2001
From: Ivan Perez <ivan.perez@keera.co.uk>
Date: Fri, 9 Feb 2024 10:37:42 +0000
Subject: [PATCH 2/2] yampa: Document changes in CHANGELOG. Refs #287.

---
 yampa/CHANGELOG | 1 +
 1 file changed, 1 insertion(+)

diff --git a/yampa/CHANGELOG b/yampa/CHANGELOG
index 8956a89c..854e87c7 100644
--- a/yampa/CHANGELOG
+++ b/yampa/CHANGELOG
@@ -2,6 +2,7 @@
     * Remove postgresql repo before installation in CI script (#284).
     * Simplify definition of FRP.Yampa.Event.joinE (#285).
     * Simplify definition of FRP.Yampa.EventS.isJustEdge (#286).
+    * Simplify definition of FRP.Yampa.Task.isEdge (#287).
 
 2023-12-07 Ivan Perez <ivan.perez@keera.co.uk>
     * Version bump (0.14.6) (#282).