[add regression test for strict newtype bug
John Meacham <john@repetae.net>**20090905042131
 Ignore-this: d1d47e60b8e131aec734ec755026fe7d
] hunk ./regress/regress.prl 184
-            my @cmd = (@jhc, ($verbose ? ('-v') : ()), '--ho-dir', $ho_dir, @libs , @fast, '-o', "$rd/$name", @flags, @opts, "$cwd/$fn");
+            my @cmd = (@jhc, ($verbose ? ('-v') : ()), @libs , @fast, '-o', "$rd/$name", @flags, @opts, "$cwd/$fn");
addfile ./regress/tests/4_bugs/StrictNewtype.expected.stdout
hunk ./regress/tests/4_bugs/StrictNewtype.expected.stdout 1
+Foo (TID 3) 'x' 4
addfile ./regress/tests/4_bugs/StrictNewtype.hs
hunk ./regress/tests/4_bugs/StrictNewtype.hs 1
+
+
+newtype TID = TID Int
+    deriving(Show)
+
+data Foo = Foo !TID Char !Int
+    deriving(Show)
+
+
+main :: IO ()
+main = print (Foo (TID 3) 'x' 4)