summaryrefslogtreecommitdiff
path: root/Setup.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-03-10 16:59:38 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-03-10 16:59:38 -0400
commit0cfe495f165da317070a9ae7a233a27745749823 (patch)
treed3fe243a7958315a186afa9f6b37524713cc594a /Setup.hs
parente55e7799b1bc2c38f54067c8d1e290ea2536c487 (diff)
make configure -Wall clean
Diffstat (limited to 'Setup.hs')
-rw-r--r--Setup.hs11
1 files changed, 5 insertions, 6 deletions
diff --git a/Setup.hs b/Setup.hs
index 0a187bd95..470a0d3db 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -16,15 +16,14 @@ import System.Directory
import qualified Build.DesktopFile as DesktopFile
import qualified Build.Configure as Configure
+main :: IO ()
main = defaultMainWithHooks simpleUserHooks
- { preConf = configure
+ { preConf = \_ _ -> do
+ Configure.run Configure.tests
+ return (Nothing, [])
, postInst = myPostInst
}
-configure _ _ = do
- Configure.run Configure.tests
- return (Nothing, [])
-
myPostInst :: Args -> InstallFlags -> PackageDescription -> LocalBuildInfo -> IO ()
myPostInst _ (InstallFlags { installVerbosity }) pkg lbi = do
installGitAnnexShell dest verbosity pkg lbi
@@ -57,7 +56,7 @@ installManpages copyDest verbosity pkg lbi =
manpages = ["git-annex.1", "git-annex-shell.1"]
installDesktopFile :: CopyDest -> Verbosity -> PackageDescription -> LocalBuildInfo -> IO ()
-installDesktopFile copyDest verbosity pkg lbi =
+installDesktopFile copyDest _verbosity pkg lbi =
DesktopFile.install $ dstBinDir </> "git-annex"
where
dstBinDir = bindir $ absoluteInstallDirs pkg lbi copyDest