Add some more lenses
commitae57d49f1a39a86cdf8fd96ffb3839e3e3ab88e4
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateMon 17 Aug 2015, 23:44 (11 years ago)
parent1ad28cb
src/Reflex/Dom/Widget/Input.hs+2
@@ -219,6 +219,8 @@ liftM concat $ mapM makeLenses
219219 , ''TextArea
220220 , ''TextInputConfig
221221 , ''TextInput
222+ , ''FileInputConfig
223+ , ''FileInput
222224 , ''DropdownConfig
223225 , ''Dropdown
224226 , ''CheckboxConfig
src/Reflex/Dom/Xhr.hs+6−1
@@ -1,4 +1,4 @@
1−{-# LANGUAGE GADTs #-}
1+{-# LANGUAGE TemplateHaskell, GADTs #-}
22module Reflex.Dom.Xhr
33 ( module Reflex.Dom.Xhr
44 , XMLHttpRequest
@@ -123,3 +123,8 @@ decodeText = decode . BL.fromStrict . encodeUtf8
123123decodeXhrResponse :: FromJSON a => XhrResponse -> Maybe a
124124decodeXhrResponse = join . fmap decodeText . _xhrResponse_body
125125
126+liftM concat $ mapM makeLenses
127+ [ ''XhrRequest
128+ , ''XhrRequestConfig
129+ , ''XhrResponse
130+ ]