[Decouple typecheckers and move TI under FrontEnd.TI.*
Einar Karttunen <ekarttun@cs.helsinki.fi>**20060225160757] adddir ./FrontEnd/TI
move ./FrontEnd/TIMain.hs ./FrontEnd/TI/Main.hs
move ./FrontEnd/TIModule.hs ./FrontEnd/TI/Module.hs
move ./FrontEnd/TIMonad.hs ./FrontEnd/TI/Monad.hs
hunk ./FrontEnd/FrontEnd.hs 24
-import TIModule
-import qualified FrontEnd.Tc.Module
+import qualified FrontEnd.TI.Module as TI
+import qualified FrontEnd.Tc.Module as Tc
+import FrontEnd.TiData
hunk ./FrontEnd/FrontEnd.hs 66
-    (ho',tiData) <- if fopts FO.Boxy then FrontEnd.Tc.Module.tiModules' ho ms else TIModule.tiModules' ho ms
+    (ho',tiData) <- if fopts FO.Boxy then Tc.tiModules' ho ms else TI.tiModules' ho ms
hunk ./FrontEnd/TI/Main.hs 21
-module TIMain (tiProgram, makeProgram) where
+module FrontEnd.TI.Main (tiProgram, makeProgram) where
hunk ./FrontEnd/TI/Main.hs 45
-import TIMonad
+import FrontEnd.TI.Monad
hunk ./FrontEnd/TI/Module.hs 1
-module TIModule (tiModules', TiData(..)) where
+module FrontEnd.TI.Module (tiModules') where
hunk ./FrontEnd/TI/Module.hs 25
-import FrontEnd.Tc.Monad()
+import FrontEnd.TiData
hunk ./FrontEnd/TI/Module.hs 36
-import TIMain
+import FrontEnd.TI.Main
hunk ./FrontEnd/TI/Module.hs 50
--- Extra data produced by the front end, used to fill in the Ho file.
-data TiData = TiData {
-    tiDataLiftedInstances :: Map.Map Name HsDecl,
-    tiDataModules :: [(Module,HsModule)],
-    tiModuleOptions :: [(Module,Opt)],
-    tiAllAssumptions :: Map.Map Name Scheme
-}
-
hunk ./FrontEnd/TI/Monad.hs 24
-module TIMonad (TI,
+module FrontEnd.TI.Monad (TI,
hunk ./FrontEnd/Tc/Module.hs 28
+import FrontEnd.TiData
hunk ./FrontEnd/Tc/Module.hs 44
-import TIModule(TiData(..))
addfile ./FrontEnd/TiData.hs
hunk ./FrontEnd/TiData.hs 1
+module FrontEnd.TiData where
+
+import HsSyn
+import Data.Map as Map
+import Representation
+import Name.Name
+import Options
+
+-- Extra data produced by the front end, used to fill in the Ho file.
+data TiData = TiData {
+    tiDataLiftedInstances :: Map.Map Name HsDecl,
+    tiDataModules :: [(Module,HsModule)],
+    tiModuleOptions :: [(Module,Opt)],
+    tiAllAssumptions :: Map.Map Name Scheme
+}
hunk ./Interactive.hs 41
+import qualified FrontEnd.TI.Main as TI(tiProgram)
hunk ./Interactive.hs 43
-import TIMain(tiProgram)
hunk ./Interactive.hs 203
-    localVarEnv <- liftIO $ TIMain.tiProgram
+    localVarEnv <- liftIO $ TI.tiProgram