[project @ 1999-11-12 14:12:38 by simonpj]

Modify to avoid warning message in test log

diff --git a/ghc/tests/deSugar/should_run/dsrun003.hs b/ghc/tests/deSugar/should_run/dsrun003.hs
index 7b92ed2..d100bff 100644 (file)
--- a/ghc/tests/deSugar/should_run/dsrun003.hs
+++ b/ghc/tests/deSugar/should_run/dsrun003.hs
@@ -9,5 +9,5 @@ data Person     =  Female {firstName, lastName :: String}
 isFemale (Female{})   =  True
 isFemale (Male{})     =  False
 
 isFemale (Female{})   =  True
 isFemale (Male{})     =  False
 

-main = print (isFemale (Female {firstName = "Jane"}))
+main = print (isFemale (Female {firstName = "Jane", lastName = "Smith"}))