From fd518ed2a3fe50238e0e9e7947e33cc9d5de9bce Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 27 Mar 2007 20:54:49 +0000 Subject: primitive pattern matching --- devel/compiler/Param.hs | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'devel/compiler/Param.hs') diff --git a/devel/compiler/Param.hs b/devel/compiler/Param.hs index 7eea9f03f..5137faa7b 100644 --- a/devel/compiler/Param.hs +++ b/devel/compiler/Param.hs @@ -12,16 +12,9 @@ sizeParType cs = do return (sum scs, length cs) where sizeC (Con c ts) = do - ats <- mapM lookParTypeSize ts + ats <- mapM (lookEnv parsizes) ts return $ product ats -lookParTypeSize :: Type -> STM Env Int -lookParTypeSize ty = case ty of - TBas c -> do - ty' <- lookEnv typedefs c - lookParTypeSize ty' - TVal i -> return $ fromInteger i - allParVals :: [Constr] -> STM Env [Exp] allParVals cs = do ess <- mapM alls cs -- cgit v1.2.3