git.iko.soy/reflex-dom
on develop help sign in
Add some more lenses
ae57d49Ryan Trinkle
src/Reflex/Dom/Widget/Input.hs+2
compare with develop
unifiedsplit
@@ -219,6 +219,8 @@ liftM concat $ mapM makeLenses
219 , ''TextArea
219 , ''TextArea
220 , ''TextInputConfig
220 , ''TextInputConfig
221 , ''TextInput
221 , ''TextInput
222+ , ''FileInputConfig
223+ , ''FileInput
222 , ''DropdownConfig
224 , ''DropdownConfig
223 , ''Dropdown
225 , ''Dropdown
224 , ''CheckboxConfig
226 , ''CheckboxConfig
src/Reflex/Dom/Xhr.hs+6−1
@@ -1,4 +1,4 @@
1−{-# LANGUAGE GADTs #-}
1+{-# LANGUAGE TemplateHaskell, GADTs #-}
2module Reflex.Dom.Xhr
2module Reflex.Dom.Xhr
3 ( module Reflex.Dom.Xhr
3 ( module Reflex.Dom.Xhr
4 , XMLHttpRequest
4 , XMLHttpRequest
@@ -123,3 +123,8 @@ decodeText = decode . BL.fromStrict . encodeUtf8
123decodeXhrResponse :: FromJSON a => XhrResponse -> Maybe a
123decodeXhrResponse :: FromJSON a => XhrResponse -> Maybe a
124decodeXhrResponse = join . fmap decodeText . _xhrResponse_body
124decodeXhrResponse = join . fmap decodeText . _xhrResponse_body
125
125
126+liftM concat $ mapM makeLenses
127+ [ ''XhrRequest
128+ , ''XhrRequestConfig
129+ , ''XhrResponse
130+ ]