Rename modules GFI, GFC & GFServer...

... to GF.Interactive, GF.Compiler & GF.Server, respectively.
This commit is contained in:
hallgren
2014-10-15 21:04:29 +00:00
parent 393dde2eb9
commit b70dba87ba
5 changed files with 9 additions and 10 deletions

View File

@@ -158,7 +158,7 @@ Executable gf
build-depends: httpd-shed>=0.4.0.2, network>=2.3 && <2.6, json, cgi build-depends: httpd-shed>=0.4.0.2, network>=2.3 && <2.6, json, cgi
-- ,silently -- ,silently
cpp-options: -DSERVER_MODE cpp-options: -DSERVER_MODE
other-modules: GFServer other-modules: GF.Server
hs-source-dirs: src/server src/server/transfer src/example-based hs-source-dirs: src/server src/server/transfer src/example-based
if flag(c-runtime) if flag(c-runtime)
@@ -251,8 +251,8 @@ Executable gf
GF.Compile.PGFtoJS GF.Compile.PGFtoJS
GF.Compile GF.Compile
GF.Quiz GF.Quiz
GFC GF.Compiler
GFI GF.Interactive
if flag(interrupt) if flag(interrupt)
cpp-options: -DUSE_INTERRUPT cpp-options: -DUSE_INTERRUPT

View File

@@ -1,7 +1,7 @@
module Main where module Main where
import GFC import GF.Compiler
import GFI import GF.Interactive
import GF.Data.ErrM import GF.Data.ErrM
import GF.Infra.Option import GF.Infra.Option
import GF.Infra.UseIO import GF.Infra.UseIO

View File

@@ -1,5 +1,4 @@
module GFC (mainGFC, writePGF) where module GF.Compiler (mainGFC, writePGF) where
-- module Main where
import PGF import PGF
import PGF.Internal(concretes,optimizePGF,unionPGF) import PGF.Internal(concretes,optimizePGF,unionPGF)

View File

@@ -1,6 +1,6 @@
{-# LANGUAGE ScopedTypeVariables, CPP #-} {-# LANGUAGE ScopedTypeVariables, CPP #-}
-- | GF interactive mode -- | GF interactive mode
module GFI (mainGFI,mainRunGFI,mainServerGFI) where module GF.Interactive (mainGFI,mainRunGFI,mainServerGFI) where
import Prelude hiding (putStrLn,print) import Prelude hiding (putStrLn,print)
import qualified Prelude as P(putStrLn) import qualified Prelude as P(putStrLn)
import GF.Command.Interpreter(CommandEnv(..),commands,mkCommandEnv,emptyCommandEnv,interpretCommandLine) import GF.Command.Interpreter(CommandEnv(..),commands,mkCommandEnv,emptyCommandEnv,interpretCommandLine)
@@ -45,7 +45,7 @@ import Control.Monad
import GF.Text.Pretty (render) import GF.Text.Pretty (render)
import qualified GF.System.Signal as IO(runInterruptibly) import qualified GF.System.Signal as IO(runInterruptibly)
#ifdef SERVER_MODE #ifdef SERVER_MODE
import GFServer(server) import GF.Server(server)
#endif #endif
import GF.System.Console(changeConsoleEncoding) import GF.System.Console(changeConsoleEncoding)

View File

@@ -1,6 +1,6 @@
-- | GF server mode -- | GF server mode
{-# LANGUAGE CPP #-} {-# LANGUAGE CPP #-}
module GFServer(server) where module GF.Server(server) where
import Data.List(partition,stripPrefix,isInfixOf) import Data.List(partition,stripPrefix,isInfixOf)
import qualified Data.Map as M import qualified Data.Map as M
import Control.Monad(when) import Control.Monad(when)