f9427da · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

Fix non-template-haskell build

commitf9427daf46f0c843475a72dd4595567e09877958 authorRyan Trinkle <ryan.trinkle@gmail.com> dateWed 10 May 2017, 19:38 (9 years ago) parent644b1a0

2 files changed+8−8

unifiedsplit

reflex-dom-core/src/Reflex/Dom/Builder/Class.hs+4−4

@@ -346,10 +346,10 @@ data RawElementConfig er t s = RawElementConfig

346346

347347#ifndef USE_TEMPLATE_HASKELL

348348rawElementConfig_eventSpec :: Lens

349− (RawElementConfig er1 t m1)

350− (RawElementConfig er2 t m2)

351− (EventSpec (DomBuilderSpace m1) er1)

352− (EventSpec (DomBuilderSpace m2) er2)

349+ (RawElementConfig er1 t s1)

350+ (RawElementConfig er2 t s2)

351+ (EventSpec s1 er1)

352+ (EventSpec s2 er2)

353353rawElementConfig_eventSpec f (RawElementConfig a b) = (\b' -> RawElementConfig a b') <$> f b

354354{-# INLINE rawElementConfig_eventSpec #-}

355355#endif

reflex-dom-core/src/Reflex/Dom/WebSocket.hs+4−4

@@ -140,19 +140,19 @@ webSocketConfig_reconnect f (WebSocketConfig x1 x2 x3) = (\y -> WebSocketConfig

140140{-# INLINE webSocketConfig_reconnect #-}

141141

142142webSocket_recv :: Lens' (RawWebSocket t a) (Event t a)

143−webSocket_recv f (WebSocket x1 x2 x3 x4) = (\y -> WebSocket y x2 x3 x4) <$> f x1

143+webSocket_recv f (RawWebSocket x1 x2 x3 x4) = (\y -> RawWebSocket y x2 x3 x4) <$> f x1

144144{-# INLINE webSocket_recv #-}

145145

146146webSocket_open :: Lens' (RawWebSocket t a) (Event t ())

147−webSocket_open f (WebSocket x1 x2 x3 x4) = (\y -> WebSocket x1 y x3 x4) <$> f x2

147+webSocket_open f (RawWebSocket x1 x2 x3 x4) = (\y -> RawWebSocket x1 y x3 x4) <$> f x2

148148{-# INLINE webSocket_open #-}

149149

150150webSocket_error :: Lens' (RawWebSocket t a) (Event t ())

151−webSocket_error f (WebSocket x1 x2 x3 x4) = (\y -> WebSocket x1 x2 y x4) <$> f x3

151+webSocket_error f (RawWebSocket x1 x2 x3 x4) = (\y -> RawWebSocket x1 x2 y x4) <$> f x3

152152{-# INLINE webSocket_error #-}

153153

154154webSocket_close :: Lens' (RawWebSocket t a) (Event t (Bool, Word, Text))

155−webSocket_close f (WebSocket x1 x2 x3 x4) = (\y -> WebSocket x1 x2 x3 y) <$> f x4

155+webSocket_close f (RawWebSocket x1 x2 x3 x4) = (\y -> RawWebSocket x1 x2 x3 y) <$> f x4

156156{-# INLINE webSocket_close #-}

157157

158158#endif