diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-05-05 16:06:01 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-05-05 16:06:01 -0400 |
| commit | c6bfa00d65cf3c7c8810cc7db11752a77ac465ab (patch) | |
| tree | 8a6859d33bfdb719d9ce600689134d65a6eead75 /Command/Version.hs | |
| parent | f44136a6ffd122fa8e703f71935b7fe6c5ffc699 (diff) | |
version: Display OS version and architecture too.
Diffstat (limited to 'Command/Version.hs')
| -rw-r--r-- | Command/Version.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Command/Version.hs b/Command/Version.hs index 1cfc0aedc..e15f1fb91 100644 --- a/Command/Version.hs +++ b/Command/Version.hs @@ -16,6 +16,8 @@ import qualified Types.Remote as R import qualified Remote import qualified Backend +import System.Info + cmd :: Command cmd = dontCheck repoExists $ noCommit $ noRepo (seekNoRepo <$$> optParser) $ @@ -53,6 +55,8 @@ showVersion = do unwords supportedVersions vinfo "upgrade supported from repository versions" $ unwords upgradableVersions + vinfo "operating system" $ + unwords [os, arch] showPackageVersion :: IO () showPackageVersion = do |