diff options
Diffstat (limited to 'testsuite/tests/th/T18097.hs')
| -rw-r--r-- | testsuite/tests/th/T18097.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/th/T18097.hs b/testsuite/tests/th/T18097.hs index 2f905d9627..ebdc7f80c0 100644 --- a/testsuite/tests/th/T18097.hs +++ b/testsuite/tests/th/T18097.hs @@ -4,11 +4,11 @@ module T18097 where import Language.Haskell.TH import GHC.Tuple -f = case $( tupE [ [| "ok" |] ] ) of Solo x -> putStrLn x -g = case Solo "ok" of $( tupP [ [p| x |] ] ) -> putStrLn x +f = case $( tupE [ [| "ok" |] ] ) of MkSolo x -> putStrLn x +g = case MkSolo "ok" of $( tupP [ [p| x |] ] ) -> putStrLn x h :: $( tupleT 1 ) String -h = Solo "ok" +h = MkSolo "ok" i :: Solo String i = $( tupE [ [| "ok" |] ] ) |