Male/Female greetings distinguished in Phrasebook

This commit is contained in:
aarne
2011-12-04 18:09:02 +00:00
parent 269ca955e1
commit 1fd47d1213
5 changed files with 16 additions and 7 deletions

View File

@@ -51,7 +51,7 @@ incomplete concrete SentencesI of Sentences = Numeral **
PSentence s = mkText s | lin Text (mkUtt s) ; -- optional '.'
PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional '?'
PGreeting g = mkText (lin Phr g) exclMarkPunct | g ;
PGreetingMale, PGreetingFemale = \g -> mkText (lin Phr g) exclMarkPunct | g ;
-- PWord w = w ;