From fd518ed2a3fe50238e0e9e7947e33cc9d5de9bce Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 27 Mar 2007 20:54:49 +0000
Subject: primitive pattern matching

---
 devel/compiler/Compile.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'devel/compiler/Compile.hs')

diff --git a/devel/compiler/Compile.hs b/devel/compiler/Compile.hs
index 7ebb65f0e..f21fca632 100644
--- a/devel/compiler/Compile.hs
+++ b/devel/compiler/Compile.hs
@@ -27,9 +27,10 @@ compDef d = case d of
     addOper f exp
   DPar  p cs -> do
     v <- sizeParType cs
-    addTypedef p $ TVal $ toInteger $ fst v
+    let ty = TBas p
+    addParsize ty $ fst v
     vals <- allParVals cs
-    addPartype (TBas p) vals
+    addPartype ty vals
     mapM_ (uncurry addParVal) (zip vals (map VPar [0..])) 
   DOpty a ty -> do
     addTypedef a ty
-- 
cgit v1.2.3