Merge branch 'master' into majestic

This commit is contained in:
Krasimir Angelov
2022-08-24 20:31:10 +02:00
5 changed files with 27 additions and 1 deletions

View File

@@ -44,7 +44,10 @@ getOptions = do
mainOpts :: Options -> [FilePath] -> IO ()
mainOpts opts files =
case flag optMode opts of
ModeVersion -> putStrLn $ "Grammatical Framework (GF) version " ++ showVersion version ++ "\n" ++ buildInfo
ModeVersion -> do datadir <- getDataDir
putStrLn $ "Grammatical Framework (GF) version " ++ showVersion version ++ "\n" ++
buildInfo ++ "\n" ++
"Shared folder: " ++ datadir
ModeHelp -> putStrLn helpMessage
ModeServer port -> mainServerGFI opts port files
ModeCompiler -> mainGFC opts files

View File

@@ -0,0 +1,3 @@
import Distribution.Simple
main = defaultMain

4
src/server/Setup.hs Normal file
View File

@@ -0,0 +1,4 @@
import Distribution.Simple(defaultMain)
main :: IO ()
main = defaultMain