@@ -261,3 +261,10 @@ liftM concat $ mapM makeLenses
261 , ''XhrRequestConfig
261 , ''XhrRequestConfig
262 , ''XhrResponse
262 , ''XhrResponse
265+instance Functor XhrRequest where
266+ fmap f = over xhrRequest_config (fmap f)
268+instance Functor XhrRequestConfig where
269+ fmap f = over xhrRequestConfig_sendData f