diff options
Diffstat (limited to 'devel/compiler/Compile.hs')
| -rw-r--r-- | devel/compiler/Compile.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |