fourmolu-0.7.0.0: data/examples/declaration/value/function/infix/qualified-ops.hs

lenses = Just $ M.fromList
  $ "type"       Foo..= ("user.connection" :: Text)
  Bar.# "connection" Foo..= uc
  Bar.# "user"       Foo..= case name of
      Just  n -> Just $ object ["name" .= n]
      Nothing -> Nothing
  Bar.# []