@@ -322,7 +322,7 @@ instance (Semigroup a, Reflex t) => Monoid (Event t a) where
322mergeWith :: Reflex t => (a -> a -> a) -> [Event t a] -> Event t a
322mergeWith :: Reflex t => (a -> a -> a) -> [Event t a] -> Event t a
323mergeWith f es = fmap (Prelude.foldl1 f . map (\(Const2 _ :=> Identity v) -> v) . DMap.toList)
323mergeWith f es = fmap (Prelude.foldl1 f . map (\(Const2 _ :=> Identity v) -> v) . DMap.toList)
325− . DMap.fromList
325+ . DMap.fromAscList
326 . map (\(k, v) -> (Const2 k) :=> v)
326 . map (\(k, v) -> (Const2 k) :=> v)
327 $ zip [0 :: Int ..] es
327 $ zip [0 :: Int ..] es