-- From https://github.com/alanz/ghc-exactprint/issues/53#issuecomment-306839162

blah = func
  where
--                       status   standard   previous
--                       quo      layouting  /associated
--                                rule only  ast item
 func =
  -- mercury             (1, 1)   (1,1)      (1,1)
    [
        -- venus         (1, 7)   (1, 7)     (1, 7) or (1, 2) if connected to "foo x"
      foo x
         -- earth        (1, 8)   (1, 8)     (1, 3)
     |   y <- z
       -- pluto          (1, -2)  (1, 6)     (1, -2)
      -- saturn          (1, -3)  (1, 5)     (1, -3)
     ,    x <- y
           -- jupiter    (1, 2)   (1, 10)    (1, 1)
     ,      pred x
  -- nepturn             (1, 1)   (1, 1)     (1, -10)
      ]