X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=cbits%2FWCsubst.c;h=facde30d453d7154bda661aa01655d07468911b9;hb=f04f95f83ac336d999aa55b9fa08f7b4589dd20b;hp=d63e0ea013cb423e698f6989dfdc384af7ed747b;hpb=8f298c3539c4786f48ae89d8ca754115210106cf;p=ghc-base.git

diff --git a/cbits/WCsubst.c b/cbits/WCsubst.c
index d63e0ea..facde30 100644
--- a/cbits/WCsubst.c
+++ b/cbits/WCsubst.c
@@ -3065,7 +3065,12 @@ int p(int c) \
 */
 
 unipred(u_iswcntrl,GENCAT_CC)
-unipred(u_iswprint,~(GENCAT_ZL|GENCAT_ZP|GENCAT_CC|GENCAT_CF|GENCAT_CS|GENCAT_CO))
+unipred(u_iswprint, \
+(GENCAT_MC | GENCAT_NO | GENCAT_SK | GENCAT_ME | GENCAT_ND | \
+  GENCAT_PO | GENCAT_LT | GENCAT_PC | GENCAT_SM | GENCAT_ZS | \
+  GENCAT_LU | GENCAT_PD | GENCAT_SO | GENCAT_PE | GENCAT_PF | \
+  GENCAT_PS | GENCAT_SC | GENCAT_LL | GENCAT_LM | GENCAT_PI | \
+  GENCAT_NL | GENCAT_MN | GENCAT_LO))
 unipred_s(u_iswspace,GENCAT_ZS)
 unipred(u_iswupper,(GENCAT_LU|GENCAT_LT))
 unipred(u_iswlower,GENCAT_LL)