169e41f · reflex-dom · git.iko.soy

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

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

2module Reflex.Dom.Xhr

3 ( XMLHttpRequest

4 , XhrRequest(..)

80 , _xhrRequest_url :: Text

81 , _xhrRequest_config :: XhrRequestConfig a

82 }

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

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

84

85data XhrRequestConfig a

86 = XhrRequestConfig { _xhrRequestConfig_headers :: Map Text Text

89 , _xhrRequestConfig_responseType :: Maybe XhrResponseType

90 , _xhrRequestConfig_sendData :: a

91 }

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

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

93

94data XhrResponse

95 = XhrResponse { _xhrResponse_status :: Word

262 , ''XhrResponse

263 ]

264

265−instance Functor XhrRequest where

266− fmap f = over xhrRequest_config (fmap f)

267−

268−instance Functor XhrRequestConfig where

269− fmap f = over xhrRequestConfig_sendData f

270−