GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-04 19:25:27 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix the serialization

Browse Source
This commit is contained in:
Krasimir Angelov committed 2022-01-08 20:02:40 +01:00
1 parent 00f857559d
commit e65a3a06c9
1 file changed
+1 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/GF/Grammar/Binary.hs
+1 -1
View File
@@ -33,7 +33,7 @@ instance Binary Grammar where
get = fmap mGrammar get get = fmap mGrammar get
instance Binary ModuleInfo where 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 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) return (ModInfo mtype mstatus mflags mextend mwith mopens med msrc mseqs jments)