From e65a3a06c9040ba30918341baf54558023f0f751 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Sat, 8 Jan 2022 20:02:40 +0100 Subject: [PATCH] fix the serialization --- src/compiler/GF/Grammar/Binary.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/GF/Grammar/Binary.hs b/src/compiler/GF/Grammar/Binary.hs index 0edf38ed4..e5b99fcd0 100644 --- a/src/compiler/GF/Grammar/Binary.hs +++ b/src/compiler/GF/Grammar/Binary.hs @@ -33,7 +33,7 @@ instance Binary Grammar where get = fmap mGrammar get instance Binary ModuleInfo where - put mi = do put (mtype mi,mstatus mi,mflags mi,mextend mi,mwith mi,mopens mi,mexdeps mi,msrc mi,jments mi) + put mi = do put (mtype mi,mstatus mi,mflags mi,mextend mi,mwith mi,mopens mi,mexdeps mi,msrc mi,mseqs mi,jments mi) get = do (mtype,mstatus,mflags,mextend,mwith,mopens,med,msrc,mseqs,jments) <- get return (ModInfo mtype mstatus mflags mextend mwith mopens med msrc mseqs jments)