diff options
Diffstat (limited to 'src/compiler/GF/Grammar/Binary.hs')
| -rw-r--r-- | src/compiler/GF/Grammar/Binary.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/compiler/GF/Grammar/Binary.hs b/src/compiler/GF/Grammar/Binary.hs index 76c3796bc..5aed63363 100644 --- a/src/compiler/GF/Grammar/Binary.hs +++ b/src/compiler/GF/Grammar/Binary.hs @@ -37,6 +37,10 @@ instance Binary Ident where then return identW
else return (identC (rawIdentC bs))
+instance Binary ModuleName where
+ put (MN id) = put id
+ get = fmap MN get
+
instance Binary Grammar where
put = put . modules
get = fmap mGrammar get
|