f3e5825 · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

Merge pull request #74 from reflex-frp/xhr-functor

Add Functor instances for XhrRequest and XhrRequestConfig

commitf3e58254ec1412b81f81be1114f450c6b441dd23 authorRyan Trinkle <ryan.trinkle@gmail.com> dateThu 7 Jul 2016, 16:03 (10 years ago) parent20c76c4 169e41f

1 file changed+4−3

compare with develop

unifiedsplit

src/Reflex/Dom/Xhr.hs+4−3

src/Reflex/Dom/Xhr.hs+4−3

@@ -1,4 +1,4 @@

1−{-# LANGUAGE TemplateHaskell, GADTs, DeriveDataTypeable, FlexibleContexts, OverloadedStrings #-}

1+{-# LANGUAGE TemplateHaskell, GADTs, DeriveDataTypeable, DeriveFunctor, FlexibleContexts, OverloadedStrings #-}

22module Reflex.Dom.Xhr

33 ( XMLHttpRequest

44 , XhrRequest(..)

@@ -80,7 +80,7 @@ data XhrRequest a

8080 , _xhrRequest_url :: Text

8181 , _xhrRequest_config :: XhrRequestConfig a

8282 }

83− deriving (Show, Read, Eq, Ord, Typeable)

83+ deriving (Show, Read, Eq, Ord, Typeable, Functor)

8484

8585data XhrRequestConfig a

8686 = XhrRequestConfig { _xhrRequestConfig_headers :: Map Text Text

@@ -89,7 +89,7 @@ data XhrRequestConfig a

8989 , _xhrRequestConfig_responseType :: Maybe XhrResponseType

9090 , _xhrRequestConfig_sendData :: a

9191 }

92− deriving (Show, Read, Eq, Ord, Typeable)

92+ deriving (Show, Read, Eq, Ord, Typeable, Functor)

9393

9494data XhrResponse

9595 = XhrResponse { _xhrResponse_status :: Word

@@ -261,3 +261,4 @@ liftM concat $ mapM makeLenses

261261 , ''XhrRequestConfig

262262 , ''XhrResponse

263263 ]

264+