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