{-# LANGUAGE TransformListComp #-}

bar' xs ys =
    [ ( x
      , y
      )
    | x <- xs
    , y <- ys
    , then
        -- First comment
        sortWith
      by
        ( x
            + y -- Second comment
        )
    ]