overload problem in Phrasebook fixed

This commit is contained in:
aarne
2012-06-22 09:02:13 +00:00
parent 650abc4aff
commit 4a778acdad

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 '?'
PGreetingMale, PGreetingFemale = \g -> mkText (lin Phr g) exclMarkPunct | g ;
PGreetingMale, PGreetingFemale = \g -> mkText (lin Phr (ss g.s)) exclMarkPunct | g ;
-- PWord w = w ;