gfc generation to incomplete modules

2005-02-10 09:43:33 +00:00
parent cb6449c50a
commit 4b46c310ce
4 changed files with 13 additions and 9 deletions
--- a/src/GF/Compile/BackOpt.hs
+++ b/src/GF/Compile/BackOpt.hs
@@ -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