fourmolu-0.7.0.0: data/examples/declaration/value/function/infix/qualified-ops-four-out.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.# []