{-# LANGUAGE TransformListComp #-}

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