From 5ea08bd2e8a073903d0c2845c5172abaeb078525 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Tue, 13 Jul 2010 08:24:03 +0000
Subject: [PATCH] bugfix in the decoding of literals in PGF.Binary

---
 src/runtime/haskell/PGF/Binary.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs
index 92f551b0e..1f61c5749 100644
--- 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