added all orthographic primitives

1 files changed, 8 insertions, 4 deletions

diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs
index b2695acbb..e1054447e 100644
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -213,8 +213,10 @@ instance Binary Symbol where
   put (SymKP d vs)       = putWord8 4 >> put (d,vs)

   put SymBIND            = putWord8 5

   put SymSOFT_BIND       = putWord8 6

-  put SymCAPIT           = putWord8 7

-  put SymNE              = putWord8 8

+  put SymSOFT_SPACE      = putWord8 7

+  put SymCAPIT           = putWord8 8

+  put SymALL_CAPIT       = putWord8 9

+  put SymNE              = putWord8 10

   get = do tag <- getWord8

            case tag of

              0 -> liftM2 SymCat get get

@@ -224,8 +226,10 @@ instance Binary Symbol where
              4 -> liftM2 (\d vs -> SymKP d vs) get get

              5 -> return SymBIND

              6 -> return SymSOFT_BIND

-             7 -> return SymCAPIT

-             8 -> return SymNE

+             7 -> return SymSOFT_SPACE

+             8 -> return SymCAPIT

+             9 -> return SymALL_CAPIT

+             10-> return SymNE

              _ -> decodingError

 

 instance Binary PArg where