From 391b301881bee7de9580f2c6d819144161e6a51d Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 21 Oct 2014 19:20:31 +0000
Subject: ModuleName and Ident are now distinct types

This makes the documentation clearer, and can potentially catch more
programming mistakes.
---
 src/compiler/GF/Grammar/Binary.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/compiler/GF/Grammar/Binary.hs')

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
-- 
cgit v1.2.3