Replace indentation spaces by tabs in Setup.hs.
This commit is contained in:
parent
4453351ca4
commit
d76afc8152
1 changed files with 21 additions and 23 deletions
44
Setup.hs
44
Setup.hs
|
@ -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"]
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue