316c3cd · reflex · git.iko.soy

on develop help sign in

Merge pull request #420 from reflex-frp/eac@add-unzip-instance

316c3cdElliot Cameron6 years ago

src/Reflex/Class.hs+7−1

@@ -180,7 +180,7 @@ import Prelude hiding (zip, zipWith)

180import Data.These.Combinators (justThese)

181#endif

182#if MIN_VERSION_semialign(1,1,0)

183−import Data.Zip (Zip (..))

183+import Data.Zip (Zip (..), Unzip (..))

184#endif

185#endif

186

@@ -1091,6 +1091,12 @@ instance Reflex t => Zip (Event t) where

1091 zip x y = mapMaybe justThese $ align x y

1092#endif

1093

1094+#ifdef MIN_VERSION_semialign

1095+#if MIN_VERSION_semialign(1,1,0)

1096+instance Reflex t => Unzip (Event t) where

1097+ unzip = splitE

1098+#endif

1099+#endif

1094

1100

1095-- | Create a new 'Event' that only occurs if the supplied 'Event' occurs and

1101-- | Create a new 'Event' that only occurs if the supplied 'Event' occurs and

1096-- the 'Behavior' is true at the time of occurrence.

1102-- the 'Behavior' is true at the time of occurrence.