From 0166b27ee45f24fb60d79498a5d15b4f316191f3 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 27 Feb 2004 07:43:52 +0000
Subject: Started with unions.

---
 src/GF/Compile/Compile.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/GF/Compile/Compile.hs')

diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs
index 77d9db11c..9d80f6a05 100644
--- a/src/GF/Compile/Compile.hs
+++ b/src/GF/Compile/Compile.hs
@@ -10,6 +10,7 @@ import Modules
 import ReadFiles
 import ShellState
 import MkResource
+import MkUnion
 
 -- the main compiler passes
 import GetGrammar
@@ -177,6 +178,9 @@ makeSourceModule opts env@(k,gr,can) mo@(i,mi) = case mi of
           mos = modules gr
       --- putp "  type checking reused" $ ioeErr $ showCheckModule mos mo2
       return $ (k,mo2)
+    MTUnion ty imps -> do
+      mo' <- ioeErr $ makeUnion gr i ty imps
+      compileSourceModule opts env mo'
     _ -> compileSourceModule opts env mo
   _ -> compileSourceModule opts env mo
  where
-- 
cgit v1.2.3