Skip to content

Commit cd85893

Browse files
authored
Merge branch 'develop' into je-clean-up-changelog-traverse
2 parents c1e65c6 + ba7efb1 commit cd85893

File tree

2 files changed

+1
-2
lines changed

2 files changed

+1
-2
lines changed

src/Reflex/DynamicWriter/Class.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -26,4 +26,3 @@ class (Monad m, Monoid w) => DynamicWriter t w m | m -> t w where
2626

2727
instance DynamicWriter t w m => DynamicWriter t w (ReaderT r m) where
2828
tellDyn = lift . tellDyn
29-

src/Reflex/PerformEvent/Base.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -141,7 +141,7 @@ hostPerformEventT a = do
141141
case mToPerform of
142142
Nothing -> return [result']
143143
Just toPerform -> do
144-
responses <- runHostFrame $ traverseRequesterData (Identity <$>) toPerform
144+
responses <- runHostFrame $ traverseRequesterData (fmap Identity) toPerform
145145
mrt <- readRef responseTrigger
146146
let followupEventTriggers = case mrt of
147147
Just rt -> [rt :=> Identity responses]

0 commit comments

Comments
 (0)