From d676355271f360861b8462c4b788202ddd605b6d Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 10 Feb 2005 09:43:33 +0000
Subject: gfc generation to incomplete modules

---
 src/GF/Compile/BackOpt.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/GF/Compile/BackOpt.hs')

diff --git a/src/GF/Compile/BackOpt.hs b/src/GF/Compile/BackOpt.hs
index 1c030f8e1..64068e93b 100644
--- 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
-- 
cgit v1.2.3