blob: b53244de6c350b2cc27aa451ba0c56391a76dd3a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{-# LANGUAGE PatternSynonyms #-}
{-# OPTIONS_GHC -Wmissing-exported-pattern-synonym-signatures #-}
module T14794e (testExported, pattern TestExported) where
-- These should generate warnings:
pattern TestExported <- True
-- These should not generate warnings:
testExported = True
testUnexported = True
pattern TestUnexported <- True
|
