@@ -38,7 +38,7 @@ qDyn qe = do
38 let exprs = reverse exprsReversed
38 let exprs = reverse exprsReversed
39 arg = foldr (\a b -> ConE 'FHCons `AppE` a `AppE` b) (ConE 'FHNil) $ map snd exprs
39 arg = foldr (\a b -> ConE 'FHCons `AppE` a `AppE` b) (ConE 'FHNil) $ map snd exprs
40 param = foldr (\a b -> ConP 'HCons [VarP a, b]) (ConP 'HNil []) $ map fst exprs
40 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) |]
43-- | Antiquote a 'Dynamic' expression. This can /only/ be used inside of a
43-- | Antiquote a 'Dynamic' expression. This can /only/ be used inside of a
44-- 'qDyn' quotation.
44-- 'qDyn' quotation.