complete pShow on patterns; bugfix; more uncovered warning tests

1 files changed, 10 insertions, 10 deletions

diff --git a/testdata/data.out b/testdata/data.out
index 0632ae01..8e2003e2 100644
--- a/testdata/data.out
+++ b/testdata/data.out
@@ -226,29 +226,29 @@ Uncovered pattern(s) at testdata/data.lc:6:23:
            | Data22 { x :: Int, y::Int }
                       ^
 Missing case(s):
-  Data21 
-  Data24 
+    x (Data21 _)
+    x Data24
 Uncovered pattern(s) at testdata/data.lc:6:33:
            | Data22 { x :: Int, y::Int }
                                 ^
 Missing case(s):
-  Data21 
-  Data23 
-  Data24 
+    y (Data21 _)
+    y (Data23 _)
+    y Data24
 Uncovered pattern(s) at testdata/data.lc:10:32:
 data Data5 a5 b5 c5 = Data51 { a5::a5}
                                ^^
 Missing case(s):
-  Data53 
+    a5 (Data53 _ _ _ _ _)
 Uncovered pattern(s) at testdata/data.lc:11:40:
                     | Data52 { a5::a5, b5::b5, c5::c5 }
                                        ^^
 Missing case(s):
-  Data51 
-  Data53 
+    b5 (Data51 _)
+    b5 (Data53 _ _ _ _ _)
 Uncovered pattern(s) at testdata/data.lc:11:48:
                     | Data52 { a5::a5, b5::b5, c5::c5 }
                                                ^^
 Missing case(s):
-  Data51 
-  Data53 
\ No newline at end of file
+    c5 (Data51 _)
+    c5 (Data53 _ _ _ _ _)
\ No newline at end of file