simplified the treatment of politeness in Phrasebook

This commit is contained in:
aarne
2010-03-30 18:48:59 +00:00
parent 0e91a4d84d
commit 66cca22f38
24 changed files with 157 additions and 183 deletions

View File

@@ -7,6 +7,6 @@ concrete PhrasebookSwe of Phrasebook =
Prelude in {
lin
PGreeting p g = mkText (lin Text (ss g.s)) (lin Text (ss p.s)) ;
PGreeting g = lin Text (ss g.s) ;
}