Replace indentation spaces by tabs in Setup.hs.

This commit is contained in:
Nathan Collins 2012-06-10 02:21:13 -07:00
parent 4453351ca4
commit d76afc8152

View file

@ -14,7 +14,7 @@ import qualified Build.Configure as Configure
main = defaultMainWithHooks simpleUserHooks main = defaultMainWithHooks simpleUserHooks
{ preConf = configure { preConf = configure
, postInst = myPostInst , postInst = myPostInst
, postCopy = myPostCopy , postCopy = myPostCopy
} }
configure _ _ = do configure _ _ = do
@ -24,11 +24,11 @@ configure _ _ = do
myPostInst :: Args -> InstallFlags -> PackageDescription myPostInst :: Args -> InstallFlags -> PackageDescription
-> LocalBuildInfo -> IO () -> LocalBuildInfo -> IO ()
myPostInst _ (InstallFlags { installVerbosity }) pkg lbi = do myPostInst _ (InstallFlags { installVerbosity }) pkg lbi = do
installGitAnnexShell dest verbosity pkg lbi installGitAnnexShell dest verbosity pkg lbi
installManpages dest verbosity pkg lbi installManpages dest verbosity pkg lbi
where where
dest = NoCopyDest dest = NoCopyDest
verbosity = fromFlag installVerbosity verbosity = fromFlag installVerbosity
-- ???: Not sure how you're supposed to use this. E.g., when I do -- ???: Not sure how you're supposed to use this. E.g., when I do
-- --
@ -43,19 +43,19 @@ myPostInst _ (InstallFlags { installVerbosity }) pkg lbi = do
myPostCopy :: Args -> CopyFlags -> PackageDescription myPostCopy :: Args -> CopyFlags -> PackageDescription
-> LocalBuildInfo -> IO () -> LocalBuildInfo -> IO ()
myPostCopy _ (CopyFlags { copyDest, copyVerbosity }) pkg lbi = do myPostCopy _ (CopyFlags { copyDest, copyVerbosity }) pkg lbi = do
installGitAnnexShell dest verbosity pkg lbi installGitAnnexShell dest verbosity pkg lbi
installManpages dest verbosity pkg lbi installManpages dest verbosity pkg lbi
where where
dest = fromFlag copyDest dest = fromFlag copyDest
verbosity = fromFlag copyVerbosity verbosity = fromFlag copyVerbosity
installGitAnnexShell :: CopyDest -> Verbosity -> PackageDescription installGitAnnexShell :: CopyDest -> Verbosity -> PackageDescription
-> LocalBuildInfo -> IO () -> LocalBuildInfo -> IO ()
installGitAnnexShell copyDest verbosity pkg lbi = installGitAnnexShell copyDest verbosity pkg lbi =
rawSystemExit verbosity "ln" rawSystemExit verbosity "ln"
["-sf", "git-annex", dstBinDir </> "git-annex-shell"] ["-sf", "git-annex", dstBinDir </> "git-annex-shell"]
where where
dstBinDir = bindir $ absoluteInstallDirs pkg lbi copyDest dstBinDir = bindir $ absoluteInstallDirs pkg lbi copyDest
-- See http://www.haskell.org/haskellwiki/Cabal/Developer-FAQ#Installing_manpages. -- See http://www.haskell.org/haskellwiki/Cabal/Developer-FAQ#Installing_manpages.
-- --
@ -79,14 +79,12 @@ installGitAnnexShell copyDest verbosity pkg lbi =
-- http://www.haskell.org/pipermail/libraries/2008-March/009416.html -- http://www.haskell.org/pipermail/libraries/2008-March/009416.html
-- Although that sounds desirable, it's not true, as the reply and -- Although that sounds desirable, it's not true, as the reply and
-- experiments indicate. -- experiments indicate.
--
-- XXX: fix tabs!
installManpages :: CopyDest -> Verbosity -> PackageDescription installManpages :: CopyDest -> Verbosity -> PackageDescription
-> LocalBuildInfo -> IO () -> LocalBuildInfo -> IO ()
installManpages copyDest verbosity pkg lbi = installManpages copyDest verbosity pkg lbi =
installOrdinaryFiles verbosity dstManDir srcManpages installOrdinaryFiles verbosity dstManDir srcManpages
where where
dstManDir = mandir (absoluteInstallDirs pkg lbi copyDest) </> "man1" dstManDir = mandir (absoluteInstallDirs pkg lbi copyDest) </> "man1"
srcManpages = zip (repeat srcManDir) manpages srcManpages = zip (repeat srcManDir) manpages
srcManDir = "" srcManDir = ""
manpages = ["git-annex.1", "git-annex-shell.1"] manpages = ["git-annex.1", "git-annex-shell.1"]