gf --version now prints the shared folder to be used by the RGL

2022-08-24 12:02:10 +02:00
parent 3fac8415ca
commit e9bbd38f68
1 changed files with 4 additions and 1 deletions
--- a/src/compiler/GF/Main.hs
+++ b/src/compiler/GF/Main.hs
@@ -48,7 +48,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 -> GFI1.mainServerGFI opts port files
      ModeCompiler    -> mainGFC opts files