diff options
Diffstat (limited to 'testsuite/tests/module')
| -rw-r--r-- | testsuite/tests/module/T20562.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/module/T20562.hs b/testsuite/tests/module/T20562.hs index 352be5e9e2..e046947f33 100644 --- a/testsuite/tests/module/T20562.hs +++ b/testsuite/tests/module/T20562.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms #-} module Main (main) where -import GHC.Tuple +import GHC.Tuple (Solo (MkSolo), getSolo) type OneTuple = Solo @@ -9,7 +9,7 @@ only :: OneTuple a -> a only = getSolo pattern OneTuple :: a -> Solo a -pattern OneTuple a = Solo a +pattern OneTuple a = MkSolo a main :: IO () main = print (only (OneTuple 'x')) |