308cd1383c
This avoids warnings from stack about the module not being listed in the cabal file. So, the generated file is also renamed to Build/SysConfig. Note that the setup program seems to be cached despite these changes; I had to cabal clean to get cabal to update it so that Build/SysConfig was written. This commit was sponsored by Jochen Bartl on Patreon.
77 lines
1.9 KiB
Haskell
77 lines
1.9 KiB
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2010 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Command.Version where
|
|
|
|
import Command
|
|
import qualified BuildInfo
|
|
import Annex.Version
|
|
import BuildInfo
|
|
import Types.Key
|
|
import qualified Types.Backend as B
|
|
import qualified Types.Remote as R
|
|
import qualified Remote
|
|
import qualified Backend
|
|
|
|
import System.Info
|
|
|
|
cmd :: Command
|
|
cmd = dontCheck repoExists $ noCommit $
|
|
noRepo (seekNoRepo <$$> optParser) $
|
|
command "version" SectionQuery "show version info"
|
|
paramNothing (seek <$$> optParser)
|
|
|
|
data VersionOptions = VersionOptions
|
|
{ rawOption :: Bool
|
|
}
|
|
|
|
optParser :: CmdParamsDesc -> Parser VersionOptions
|
|
optParser _ = VersionOptions
|
|
<$> switch
|
|
( long "raw"
|
|
<> help "output only program version"
|
|
)
|
|
|
|
seek :: VersionOptions -> CommandSeek
|
|
seek o
|
|
| rawOption o = liftIO showRawVersion
|
|
| otherwise = showVersion
|
|
|
|
seekNoRepo :: VersionOptions -> IO ()
|
|
seekNoRepo o
|
|
| rawOption o = showRawVersion
|
|
| otherwise = showPackageVersion
|
|
|
|
showVersion :: Annex ()
|
|
showVersion = do
|
|
v <- getVersion
|
|
liftIO $ do
|
|
showPackageVersion
|
|
vinfo "local repository version" $ fromMaybe "unknown" v
|
|
vinfo "supported repository versions" $
|
|
unwords supportedVersions
|
|
vinfo "upgrade supported from repository versions" $
|
|
unwords upgradableVersions
|
|
vinfo "operating system" $
|
|
unwords [os, arch]
|
|
|
|
showPackageVersion :: IO ()
|
|
showPackageVersion = do
|
|
vinfo "git-annex version" BuildInfo.packageversion
|
|
vinfo "build flags" $ unwords buildFlags
|
|
vinfo "dependency versions" $ unwords dependencyVersions
|
|
vinfo "key/value backends" $ unwords $
|
|
map (formatKeyVariety . B.backendVariety) Backend.list
|
|
vinfo "remote types" $ unwords $ map R.typename Remote.remoteTypes
|
|
|
|
showRawVersion :: IO ()
|
|
showRawVersion = do
|
|
putStr BuildInfo.packageversion
|
|
hFlush stdout -- no newline, so flush
|
|
|
|
vinfo :: String -> String -> IO ()
|
|
vinfo k v = putStrLn $ k ++ ": " ++ v
|