Merge branch 'develop-simplify-isEdge' into develop. Close #287.

ivanperez-keera · Feb 9, 2024 · 877746d · 877746d
2 parents fc47e03 + f76f9d0
commit 877746d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git 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).

diff --git 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