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