From c6bfa00d65cf3c7c8810cc7db11752a77ac465ab Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 5 May 2016 16:06:01 -0400
Subject: version: Display OS version and architecture too.

---
 Command/Version.hs | 4 ++++
 debian/changelog   | 1 +
 2 files changed, 5 insertions(+)

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
diff --git a/debian/changelog b/debian/changelog
index 2db35bccb..a00632ce0 100644
--- a/debian/changelog
+++ b/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
 
-- 
cgit v1.2.3