diff options
| author | bjorn <bjorn@bringert.net> | 2008-05-23 08:47:07 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-05-23 08:47:07 +0000 |
| commit | 6027c10a0ce4b9c6282276125876092ffadac027 (patch) | |
| tree | 4835db42dec34f82ca03dd203981e26dfe87dd71 /src-3.0/GF/Compile | |
| parent | 5aceb18bebac19a5fb0580dd7b232ead0b5bd878 (diff) | |
Get rid of the 'f' type parameter to the module types.
This was only ever instantiated with Option, and made it diificult to change the options type.
Diffstat (limited to 'src-3.0/GF/Compile')
| -rw-r--r-- | src-3.0/GF/Compile/GrammarToGFCC.hs | 2 | ||||
| -rw-r--r-- | src-3.0/GF/Compile/ModDeps.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src-3.0/GF/Compile/GrammarToGFCC.hs b/src-3.0/GF/Compile/GrammarToGFCC.hs index 4fd843770..f061f3b34 100644 --- a/src-3.0/GF/Compile/GrammarToGFCC.hs +++ b/src-3.0/GF/Compile/GrammarToGFCC.hs @@ -540,7 +540,7 @@ prTrace tr n = trace ("-- OBSERVE" +++ A.prt tr +++ show n +++ show tr) n -- | this function finds out what modules are really needed in the canonical gr. -- its argument is typically a concrete module name -requiredCanModules :: (Ord i, Show i) => Bool -> M.MGrammar i f a -> i -> [i] +requiredCanModules :: (Ord i, Show i) => Bool -> M.MGrammar i a -> i -> [i] requiredCanModules isSingle gr c = nub $ filter notReuse ops ++ exts where exts = M.allExtends gr c ops = if isSingle diff --git a/src-3.0/GF/Compile/ModDeps.hs b/src-3.0/GF/Compile/ModDeps.hs index 8331057d1..b5b1b798c 100644 --- a/src-3.0/GF/Compile/ModDeps.hs +++ b/src-3.0/GF/Compile/ModDeps.hs @@ -125,7 +125,7 @@ openInterfaces ds m = do -- | this function finds out what modules are really needed in the canonical gr. -- its argument is typically a concrete module name -requiredCanModules :: (Ord i, Show i) => Bool -> MGrammar i f a -> i -> [i] +requiredCanModules :: (Ord i, Show i) => Bool -> MGrammar i a -> i -> [i] requiredCanModules isSingle gr c = nub $ filter notReuse ops ++ exts where exts = allExtends gr c ops = if isSingle |