summaryrefslogtreecommitdiff
path: root/testsuite/tests/layout/layout004.hs
blob: 46e47b13bd5c849ca095e2877592696ac12428cd (plain)
1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE PatternGuards #-}

module M where

f | Just x <- undefined,
    let y = x,
    undefined x y
  = ()