Raise version to 0.7.0, formatting + info

Barbarossa.cabal

@@ -1,11 +1,11 @@
 Name:                Barbarossa
-Version:             0.6.0
+Version:             0.7.0
 Synopsis:            UCI chess engine written in Haskell
 License:             BSD3
 License-file:        LICENSE
 Author:              Nicu Ionita
 Maintainer:          [email protected]
-Copyright:           Nicu Ionita 2013 - 2019
+Copyright:           Nicu Ionita 2013 - 2021
 Category:            Game
 Build-type:          Simple
 Cabal-version:       >=1.8

Main/Barbarossa.hs

@@ -38,8 +38,8 @@ import Eval.FileParams (makeEvalState)
 progName, progVersion, progVerSuff, progAuthor :: String
 progName    = "Barbarossa"
 progAuthor  = "Nicu Ionita"
-progVersion = "0.6.0"
-progVerSuff = "i2103"
+progVersion = "0.7.0"
+progVerSuff = "base070"
 
 data Options = Options {
         optConfFile :: Maybe String,	-- config file
@@ -48,11 +48,14 @@ data Options = Options {
         optAFenFile :: Maybe FilePath	-- annotated fen file for self analysis
     }
 
+logOptDefault :: LogLevel
+logOptDefault = if length progVerSuff == 0 then LogNever else LogInfo
+
 defaultOptions :: Options
 defaultOptions = Options {
         optConfFile = Nothing,
         optParams   = [],
-        optLogging  = LogInfo,
+        optLogging  = logOptDefault,
         optAFenFile = Nothing
     }
 
@@ -78,10 +81,10 @@ addAFile fi opt = opt { optAFenFile = Just fi }
 
 options :: [OptDescr (Options -> Options)]
 options = [
-        Option "c" ["config"] (ReqArg setConfFile "STRING") "Configuration file",
-        Option "l" ["loglev"] (ReqArg setLogging "STRING")  "Logging level from 0 (debug) to 5 (never)",
-        Option "p" ["param"]  (ReqArg addParam "STRING")    "Eval/search/time parameters: name=value,...",
-        Option "a" ["analyse"] (ReqArg addAFile "STRING")   "Analysis file"
+        Option "c" ["config"]  (ReqArg setConfFile "STRING") "Configuration file",
+        Option "l" ["loglev"]  (ReqArg setLogging "STRING")  "Logging level from 0 (debug) to 5 (never)",
+        Option "p" ["param"]   (ReqArg addParam "STRING")    "Eval/search/time parameters: name=value,...",
+        Option "a" ["analyse"] (ReqArg addAFile "STRING")    "Analysis file"
     ]
 
 theOptions :: IO (Options, [String])

Search/Albeta.hs

@@ -34,7 +34,7 @@ useAspirWin = False
 -- Some fix search parameter
 scoreGrain, depthForCM, minPvDepth :: Int
 scoreGrain  = 4	-- score granularity
-depthForCM  = 7 -- from this depth inform current move
+depthForCM  = 8 -- from this depth inform current move
 minPvDepth  = 2		-- from this depth we use alpha beta search
 useTTinPv :: Bool
 useTTinPv   = False	-- retrieve from TT in PV?