(Por) also bind clitic with hyphen in imperative

This commit is contained in:
odanoburu
2019-02-06 13:23:23 -02:00
parent 32bde9dd1b
commit b976158388
2 changed files with 2 additions and 2 deletions
+1 -1
View File
@@ -58,7 +58,7 @@ instance DiffPor of DiffRomance - [chooseTA,partAgr,vpAgrSubj,vpAgrClits] = open
mkImperative isPol p vp =
\\pol,g,n => case pol of {
RPos => neg.p1 ++ imper ++ bindHyphenIf refl.isRefl ++ refl.pron
++ bindIf hasClit ++ clit ++ compl ;
++ bindHyphenIf hasClit ++ clit ++ compl ;
RNeg _ => neg.p1 ++ refl.pron ++ clit ++ subj ++ compl
} where {
pe = case isPol of {True => P2 ; _ => P3} ;