T15753b.hs\should_compile\pmcheck\tests\testsuite - delta/haskell.git - gitlab.haskell.org: ghc/ghc.git

index : delta/haskell.git

gitlab.haskell.org: ghc/ghc.git

summary refs log tree commit diff

path: root/testsuite/tests/pmcheck/should_compile/T15753b.hs

blob: cb629c3857f4dd921d6c06aa8dc52de47361f7f9 (plain)

{-# LANGUAGE PatternSynonyms #-}
module Bug where

{-# COMPLETE Id #-}
pattern Id :: ()
pattern Id = ()

bug :: ()
bug | Id <- id () = ()