Fix hlint
commita63aba90bdea5ae5b3e1506d468613bdfedcdfa3
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateTue 30 Aug 2016, 12:16 (10 years ago)
parentb9d5205
src/Reflex/Dynamic/TH.hs+1−1
@@ -38,7 +38,7 @@ qDyn qe = do
3838 let exprs = reverse exprsReversed
3939 arg = foldr (\a b -> ConE 'FHCons `AppE` a `AppE` b) (ConE 'FHNil) $ map snd exprs
4040 param = foldr (\a b -> ConP 'HCons [VarP a, b]) (ConP 'HNil []) $ map fst exprs
41− [| return $ fmap $(return $ LamE [param] e') $ distributeFHListOverDynPure $(return arg) |]
41+ [| return $ $(return $ LamE [param] e') <$> distributeFHListOverDynPure $(return arg) |]
4242
4343-- | Antiquote a 'Dynamic' expression. This can /only/ be used inside of a
4444-- 'qDyn' quotation.