Fix qDyn and mkDyn
commitb9d520599a1c74da75412373b8e2641a1a2a06cb
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateTue 30 Aug 2016, 12:10 (10 years ago)
parent2e9a8de
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 $ $(return $ LamE [param] e') $ distributeFHListOverDynPure $(return arg) |]
41+ [| return $ fmap $(return $ LamE [param] e') $ distributeFHListOverDynPure $(return arg) |]
4242
4343-- | Antiquote a 'Dynamic' expression. This can /only/ be used inside of a
4444-- 'qDyn' quotation.