From f8fe23fda7b97d5301bfb2ec1d89ce9967c5b200 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Wed, 29 Aug 2012 11:43:02 +0000
Subject: A basic infrastructure for generating Teyjus bytecode from the GF
 abstract syntax

---
 src/runtime/haskell/PGF/Binary.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/runtime/haskell/PGF/Binary.hs')

diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs
index 22a6ef464..e96bf0ea0 100644
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -44,6 +44,7 @@ instance Binary Abstr where
            cats <- get
            return (Abstr{ aflags=aflags
                         , funs=funs, cats=cats
+                        , code=BS.empty                        
                         })
   
 instance Binary Concr where
-- 
cgit v1.2.3