From 55eec1b72a01c4586255cb95097bf6d1f6f9eaaa Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 5 May 2016 16:05:27 -0400 Subject: [PATCH] Setup: avoid trying to install man pages and desktop files on Windows --- Setup.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Setup.hs b/Setup.hs index 0684674b3f..3e6637fc64 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