updated synopsis, removed GF/devel/

1 files changed, 0 insertions, 27 deletions

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]