bugfix in the decoding of literals in PGF.Binary

2010-07-13 08:24:03 +00:00
parent a8560f2cf1
commit 5ea08bd2e8
1 changed files with 2 additions and 2 deletions
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -167,8 +167,8 @@ instance Binary Literal where
  get = do tag <- getWord8
           case tag of
             0 -> liftM  LStr get
-             1 -> liftM  LFlt get
-             2 -> liftM  LInt get
+             1 -> liftM  LInt get
+             2 -> liftM  LFlt get
             _ -> decodingError