html-test/src/Bug1067A.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE Haskell2010 #-}
{-# language PatternSynonyms #-}
module Bug1067A ( Foo(P) ) where

-- | A foo
data Foo = Foo

-- | A pattern
pattern P :: Foo
pattern P = Foo