reorganize the modules in GF.Compile.*

gf.cabal

@@ -121,12 +121,12 @@ executable gf
     GF.Compile.Rename
     GF.Compile.ReadFiles
     GF.Compile.GrammarToPGF
-    GF.Compile.Concrete.TypeCheck
+    GF.Compile.TypeCheck.Abstract
-    GF.Compile.Concrete.Compute
+    GF.Compile.TypeCheck.Concrete
-    GF.Compile.Concrete.AppPredefined
+    GF.Compile.TypeCheck.TC
-    GF.Compile.Abstract.TC
+    GF.Compile.Compute.Abstract
-    GF.Compile.Abstract.TypeCheck
+    GF.Compile.Compute.Concrete
-    GF.Compile.Abstract.Compute
+    GF.Compile.Compute.AppPredefined
     GF.Compile.Optimize
     GF.Compile.SubExOpt
     GF.Compile.ModDeps

src/compiler/GF/Compile/CheckGrammar.hs

@@ -25,8 +25,8 @@ module GF.Compile.CheckGrammar(checkModule) where
 import GF.Infra.Ident
 import GF.Infra.Modules
 
-import GF.Compile.Abstract.TypeCheck
+import GF.Compile.TypeCheck.Abstract
-import GF.Compile.Concrete.TypeCheck
+import GF.Compile.TypeCheck.Concrete
 
 import GF.Grammar
 import GF.Grammar.Lexer

src/compiler/GF/Compile/Compute/Abstract.hs

@@ -14,7 +14,7 @@
 -- old GF computation; to be updated
 -----------------------------------------------------------------------------
 
-module GF.Compile.Abstract.Compute (LookDef,
+module GF.Compile.Compute.Abstract (LookDef,
 		   compute, 
 		   computeAbsTerm, 
 		   computeAbsTermIn, 

src/compiler/GF/Compile/Compute/AppPredefined.hs

@@ -12,7 +12,7 @@
 -- Predefined function type signatures and definitions.
 -----------------------------------------------------------------------------
 
-module GF.Compile.Concrete.AppPredefined (isInPredefined, typPredefined, appPredefined
+module GF.Compile.Compute.AppPredefined (isInPredefined, typPredefined, appPredefined
 		     ) where
 
 import GF.Infra.Ident

src/compiler/GF/Compile/Compute/Concrete.hs

@@ -12,7 +12,7 @@
 -- Computation of source terms. Used in compilation and in @cc@ command.
 -----------------------------------------------------------------------------
 
-module GF.Compile.Concrete.Compute (computeConcrete, computeTerm,computeConcreteRec) where
+module GF.Compile.Compute.Concrete (computeConcrete, computeTerm,computeConcreteRec) where
 
 import GF.Data.Operations
 import GF.Grammar.Grammar
@@ -28,7 +28,7 @@ import GF.Compile.Refresh
 import GF.Grammar.PatternMatch
 import GF.Grammar.Lockfield (isLockLabel,unlockRecord) ----
 
-import GF.Compile.Concrete.AppPredefined
+import GF.Compile.Compute.AppPredefined
 
 import Data.List (nub,intersperse)
 import Control.Monad (liftM2, liftM)

src/compiler/GF/Compile/GrammarToPGF.hs

@@ -15,7 +15,7 @@ import GF.Grammar.Grammar
 import qualified GF.Grammar.Lookup as Look
 import qualified GF.Grammar as A
 import qualified GF.Grammar.Macros as GM
-import qualified GF.Compile.Concrete.Compute as Compute ---- 
+import qualified GF.Compile.Compute.Concrete as Compute ---- 
 import qualified GF.Infra.Modules as M
 import qualified GF.Infra.Option as O
 

src/compiler/GF/Compile/Optimize.hs

@@ -23,7 +23,7 @@ import GF.Grammar.Macros
 import GF.Grammar.Lookup
 import GF.Grammar.Predef
 import GF.Compile.Refresh
-import GF.Compile.Concrete.Compute
+import GF.Compile.Compute.Concrete
 import GF.Compile.CheckGrammar
 import GF.Compile.Update
 

src/compiler/GF/Compile/TypeCheck/Abstract.hs

@@ -12,7 +12,7 @@
 -- (Description of the module)
 -----------------------------------------------------------------------------
 
-module GF.Compile.Abstract.TypeCheck (-- * top-level type checking functions; TC should not be called directly.
+module GF.Compile.TypeCheck.Abstract (-- * top-level type checking functions; TC should not be called directly.
 		  checkContext,
 		  checkTyp,
 		  checkDef,
@@ -26,8 +26,8 @@ import GF.Grammar
 import GF.Grammar.Lookup
 import GF.Grammar.Unify
 import GF.Compile.Refresh
-import GF.Compile.Abstract.Compute
+import GF.Compile.Compute.Abstract
-import GF.Compile.Abstract.TC
+import GF.Compile.TypeCheck.TC
 
 import Text.PrettyPrint
 import Control.Monad (foldM, liftM, liftM2)

src/compiler/GF/Compile/TypeCheck/Concrete.hs

@@ -1,5 +1,5 @@
 {-# LANGUAGE PatternGuards #-}
-module GF.Compile.Concrete.TypeCheck( checkLType, inferLType, computeLType, ppType ) where
+module GF.Compile.TypeCheck.Concrete( checkLType, inferLType, computeLType, ppType ) where
 
 import GF.Infra.CheckM
 import GF.Infra.Modules
@@ -10,7 +10,7 @@ import GF.Grammar.Lookup
 import GF.Grammar.Predef
 import GF.Grammar.PatternMatch
 import GF.Grammar.Lockfield (isLockLabel, lockRecType, unlockRecord)
-import GF.Compile.Concrete.AppPredefined
+import GF.Compile.Compute.AppPredefined
 
 import Data.List
 import Control.Monad

src/compiler/GF/Compile/TypeCheck/TC.hs

@@ -12,7 +12,7 @@
 -- Thierry Coquand's type checking algorithm that creates a trace
 -----------------------------------------------------------------------------
 
-module GF.Compile.Abstract.TC (AExp(..),
+module GF.Compile.TypeCheck.TC (AExp(..),
 	   Theory,
 	   checkExp,
 	   inferExp,

src/compiler/GFI.hs

@@ -12,8 +12,8 @@ import GF.Grammar hiding (Ident)
 import GF.Grammar.Parser (runP, pExp)
 import GF.Grammar.ShowTerm
 import GF.Compile.Rename
-import GF.Compile.Concrete.Compute (computeConcrete)
+import GF.Compile.Compute.Concrete (computeConcrete)
-import GF.Compile.Concrete.TypeCheck (inferLType)
+import GF.Compile.TypeCheck.Concrete (inferLType)
 import GF.Infra.Dependencies
 import GF.Infra.CheckM
 import GF.Infra.UseIO