Merge branch 'develop-simplify-isJustEdge' into develop. Close #286.

ivanperez-keera · Feb 9, 2024 · fc47e03 · fc47e03
2 parents d8fa729 + e7584df
commit fc47e03
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/yampa/CHANGELOG b/yampa/CHANGELOG
@@ -1,6 +1,7 @@
 2024-02-09 Ivan Perez <ivan.perez@keera.co.uk>
     * 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).
 
 2023-12-07 Ivan Perez <ivan.perez@keera.co.uk>
     * Version bump (0.14.6) (#282).

diff --git a/yampa/src/FRP/Yampa/EventS.hs b/yampa/src/FRP/Yampa/EventS.hs
@@ -249,10 +249,8 @@ edgeTag a = edge >>> arr (`tag` a)
 edgeJust :: SF (Maybe a) (Event a)
 edgeJust = edgeBy isJustEdge (Just undefined)
   where
-    isJustEdge Nothing  Nothing     = Nothing
     isJustEdge Nothing  ma@(Just _) = ma
-    isJustEdge (Just _) (Just _)    = Nothing
-    isJustEdge (Just _) Nothing     = Nothing
+    isJustEdge _        _           = Nothing
 
 -- | Edge detector parameterized on the edge detection function and initial
 -- state, i.e., the previous input sample. The first argument to the edge