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

This commit is contained in:
Joey Hess 2016-05-05 16:05:27 -04:00
parent f9f5860590
commit 55eec1b72a
Failed to extract signature

View file

@ -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