1lenses = Just $ M.fromList 2 $ "type" .= ("user.connection" :: Text) 3 # "connection" .= uc 4 # "user" .= case name of 5 Just n -> Just $ object ["name" .= n] 6 Nothing -> Nothing 7 # [] 8 9foo = a 10 & b .~ 2 & c .~ 3 11 12wreq = 13 let opts = defaults & auth ?~ awsAuth AWSv4 "key" "secret" 14 & header "Accept" .~ ["application/json"] 15 & header "Runscope-Bucket-Auth" .~ ["1example-1111-4yyyy-zzzz-xxxxxxxx"] 16 in getWith opts 17