GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

bugfix in the decoding of literals in PGF.Binary

Browse Source
This commit is contained in:
krasimir
2010-07-13 08:24:03 +00:00
parent a8560f2cf1
commit 5ea08bd2e8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/runtime/haskell/PGF/Binary.hs
View File

@@ -167,8 +167,8 @@ instance Binary Literal where
get = do tag <- getWord8 get = do tag <- getWord8
case tag of case tag of
0 -> liftM LStr get 0 -> liftM LStr get
1 -> liftM LFlt get 1 -> liftM LInt get
2 -> liftM LInt get 2 -> liftM LFlt get
_ -> decodingError _ -> decodingError