version: Display OS version and architecture too.

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

debian/changelog

@@ -16,6 +16,7 @@ git-annex (6.20160420) UNRELEASED; urgency=medium
   * map: Hide dead repositories that are not connected to the graph.
   * map: Changed colors; red is used for untrusted repositories and grey
     for dead.
+  * version: Display OS version and architecture too.
 
  -- Joey Hess <id@joeyh.name>  Thu, 28 Apr 2016 13:17:04 -0400