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