gfc generation to incomplete modules

This commit is contained in:
aarne
2005-02-10 09:43:33 +00:00
parent cb6449c50a
commit 4b46c310ce
4 changed files with 13 additions and 9 deletions

View File

@@ -27,10 +27,10 @@ import qualified Modules as M
type OptSpec = [Integer] ---
doOptFactor :: OptSpec
doOptFactor :: OptSpec -> Bool
doOptFactor opt = elem 2 opt
doOptValues :: OptSpec
doOptValues :: OptSpec -> Bool
doOptValues opt = elem 3 opt
shareOpt :: OptSpec