From: simonpj <unknown>
Date: Fri, 12 Nov 1999 14:12:38 +0000 (+0000)
Subject: [project @ 1999-11-12 14:12:38 by simonpj]
X-Git-Tag: Approximately_9120_patches~5563
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7f0885ba45df95553df85076b5953f58241b0221;p=ghc-hetmet.git

[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
--- 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
 
-main = print (isFemale (Female {firstName = "Jane"}))
+main = print (isFemale (Female {firstName = "Jane", lastName = "Smith"}))