Setup: avoid trying to install man pages and desktop files on Windows

1 files changed, 2 insertions, 1 deletions

diff --git a/Setup.hs b/Setup.hs
index 0684674b3..3e6637fc6 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -15,6 +15,7 @@ import Control.Monad
 import System.Directory
 import Data.List
 import Control.Exception
+import qualified System.Info
 
 import qualified Build.DesktopFile as DesktopFile
 import qualified Build.Configure as Configure
@@ -28,7 +29,7 @@ main = defaultMainWithHooks simpleUserHooks
 	}
 
 myPostCopy :: Args -> CopyFlags -> PackageDescription -> LocalBuildInfo -> IO ()
-myPostCopy _ flags pkg lbi = do
+myPostCopy _ flags pkg lbi = when (System.Info.os /= "mingw32") $ do
 	installGitAnnexShell dest verbosity pkg lbi
 	installManpages      dest verbosity pkg lbi
 	installDesktopFile   dest verbosity pkg lbi