ba7efb1 · reflex · git.iko.soy

git.iko.soy/reflex

Merge pull request #312 from endgame/hlint

Clean up hlints

commitba7efb10008dcd8b515fcc903c65d9d7197f9732 authorJohn Ericson <John.Ericson@Obsidian.Systems> dateFri 13 Dec 2019, 16:32 (7 years ago) parenta190592 5300af1

2 files changed+1−2

compare with develop

unifiedsplit

src/Reflex/DynamicWriter/Class.hs−1 src/Reflex/PerformEvent/Base.hs+1−1

src/Reflex/DynamicWriter/Class.hs−1

@@ -26,4 +26,3 @@ class (Monad m, Monoid w) => DynamicWriter t w m | m -> t w where

2626

2727instance DynamicWriter t w m => DynamicWriter t w (ReaderT r m) where

2828 tellDyn = lift . tellDyn

29−

src/Reflex/PerformEvent/Base.hs+1−1

@@ -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]