Commit 7f0885ba authored by simonpj's avatar simonpj
Browse files

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

Modify to avoid warning message in test log
parent ae5c17c9
......@@ -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"}))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment