path: root/testsuite/tests/pmcheck/complete_sigs/completesig02.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -Wall #-}
module Empty where

pattern Foo :: ()
pattern Foo = ()

a :: () -> ()
a Foo = ()