ghc/compiler/tests/validation-misc/testgrhss.hs

   1 -- grhss
   2 -----
   3
   4 f x | True = x+1        -- 1
   5     | False = True
   6
   7 -----
   8
   9 x | True = x+1          -- 2
  10   | False = x
  11
  12 -----
  13
  14
  15
  16