bugfix in the decoding of literals in PGF.Binary

2026-04-09 04:59:31 -06:00 · 2010-07-13 08:24:03 +00:00
parent d7f76c6d62
commit 647b5ffff2
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