mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-11-04 11:15:27 -07:00
bugfix in the decoding of literals in PGF.Binary
This commit is contained in:
1 parent
d7f76c6d62
commit
647b5ffff2
1 file changed
+2
-2
@@ -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
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in new issue
Block a user