From 73e401cee21fa61dcf9900d8d2b40ddd39f4e612 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 27 Jun 2008 11:59:03 +0000 Subject: updated synopsis, removed GF/devel/ --- devel/compiler/Param.hs | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 devel/compiler/Param.hs (limited to 'devel/compiler/Param.hs') diff --git a/devel/compiler/Param.hs b/devel/compiler/Param.hs deleted file mode 100644 index 5137faa7b..000000000 --- a/devel/compiler/Param.hs +++ /dev/null @@ -1,27 +0,0 @@ -module Param where - -import AbsSrc -import SMacros - -import Env -import STM - -sizeParType :: [Constr] -> STM Env (Int,Int) -sizeParType cs = do - scs <- mapM sizeC cs - return (sum scs, length cs) - where - sizeC (Con c ts) = do - ats <- mapM (lookEnv parsizes) ts - return $ product ats - -allParVals :: [Constr] -> STM Env [Exp] -allParVals cs = do - ess <- mapM alls cs - return $ concat ess - where - alls (Con c []) = do - return [constr c []] - alls (Con c ts) = do - ess <- mapM (lookEnv partypes) ts - return [constr c es | es <- sequence ess] -- cgit v1.2.3