09bcdcf · reflex · git.iko.soy

Fix hlint

commit09bcdcf44ec99ce152f2bb814fc25066a93a92ad authorRyan Trinkle <ryan.trinkle@gmail.com> dateSun 26 Aug 2018, 14:06 (8 years ago) parent9c3c195

2 files changed+5−4

unifiedsplit

src/Reflex/Query/Base.hs+4−4

@@ -102,14 +102,14 @@ instance (Reflex t, MonadFix m, Group q, Additive q, Query q, MonadHold t m, Adj

102102 let f' :: IntMap.Key -> v -> EventWriterT t q (ReaderT (Dynamic t (QueryResult q)) m) (QueryTLoweredResult t q v')

103103 f' k v = fmap QueryTLoweredResult $ flip runStateT [] $ unQueryT $ f k v

104104 (result0, result') <- QueryT $ lift $ traverseIntMapWithKeyWithAdjust f' im0 im'

105− let liftedResult0 = IntMap.map (\r -> getQueryTLoweredResultValue r) result0

105+ let liftedResult0 = IntMap.map getQueryTLoweredResultValue result0

106106 liftedResult' = fforCheap result' $ \(PatchIntMap p) -> PatchIntMap $

107− IntMap.map (\mr -> fmap getQueryTLoweredResultValue mr) p

107+ IntMap.map (fmap getQueryTLoweredResultValue) p

108108 liftedBs0 :: IntMap [Behavior t q]

109− liftedBs0 = IntMap.map (\r -> getQueryTLoweredResultWritten r) result0

109+ liftedBs0 = IntMap.map getQueryTLoweredResultWritten result0

110110 liftedBs' :: Event t (PatchIntMap [Behavior t q])

111111 liftedBs' = fforCheap result' $ \(PatchIntMap p) -> PatchIntMap $

112− IntMap.map (\mr -> fmap getQueryTLoweredResultWritten mr) p

112+ IntMap.map (fmap getQueryTLoweredResultWritten) p

113113 sampleBs :: forall m'. MonadSample t m' => [Behavior t q] -> m' q

114114 sampleBs = foldlM (\b a -> (b <>) <$> sample a) mempty

115115 accumBehaviors :: forall m'. MonadHold t m'

test/hlint.hs+1

@@ -20,6 +20,7 @@ main = do

2020 , "--ignore=Use >=>"

2121 , "--ignore=Use ."

2222 , "--ignore=Use unless"

23+ , "--ignore=Reduce duplication"

2324 , "--cpp-define=USE_TEMPLATE_HASKELL"

2425 ]

2526 recurseInto = and <$> sequence