diff options
author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-09-27 19:31:51 +0200 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-09-27 19:31:51 +0200 |
commit | b25c3dd1f0698a51e6e212c1abec0c3832e1dd04 (patch) | |
tree | 85b085a0b610af86dcb1dc3a363ce8662c47b7e1 | |
parent | 7761fb260bf7745b03a4036185c902bafabec82f (diff) | |
download | xmobar-b25c3dd1f0698a51e6e212c1abec0c3832e1dd04.tar.gz xmobar-b25c3dd1f0698a51e6e212c1abec0c3832e1dd04.tar.bz2 |
Setup: waiting for Cabal-1.2 :)
darcs-hash:20070927173151-d6583-d694a351d4babb3420889593a3f3357acfe3e0bc.gz
-rwxr-xr-x | Setup.lhs | 78 |
1 files changed, 1 insertions, 77 deletions
@@ -1,80 +1,4 @@ #!/usr/bin/env runhaskell > import Distribution.Simple -> import Distribution.PackageDescription -> import Distribution.Setup -> import Distribution.Simple.Utils -> import Distribution.Simple.LocalBuildInfo -> import Distribution.Program -> import Distribution.PreProcess - -> import System.FilePath.Posix -> import System.Directory -> import Data.List - - -> main = defaultMainWithHooks defaultUserHooks {haddockHook = xmonadHaddock} - -> -- a different implementation of haddock hook from -> -- from Distribution.Simple: will use synopsis and description for -> -- building executables' documentation. - -> xmonadHaddock pkg_descr lbi hooks (HaddockFlags hoogle verbose) = do -> confHaddock <- do let programConf = withPrograms lbi -> haddockName = programName haddockProgram -> mHaddock <- lookupProgram haddockName programConf -> maybe (die "haddock command not found") return mHaddock - -> let tmpDir = (buildDir lbi) </> "tmp" -> createDirectoryIfMissing True tmpDir -> createDirectoryIfMissing True haddockPref -> preprocessSources pkg_descr lbi verbose (allSuffixHandlers hooks) -> setupMessage "Running Haddock for" pkg_descr - -> let outputFlag = if hoogle then "--hoogle" else "--html" -> showPkg = showPackageId (package pkg_descr) -> showDepPkgs = map showPackageId (packageDeps lbi) - -> withExe pkg_descr $ \exe -> do -> let bi = buildInfo exe -> inFiles <- getModulePaths bi (otherModules bi) -> srcMainPath <- findFile (hsSourceDirs bi) (modulePath exe) - -> let prologName = showPkg ++ "-haddock-prolog.txt" -> writeFile prologName (description pkg_descr ++ "\n") - -> let exeTargetDir = haddockPref </> exeName exe -> outFiles = srcMainPath : inFiles -> haddockFile = exeTargetDir </> (haddockName pkg_descr) - -> createDirectoryIfMissing True exeTargetDir -> rawSystemProgram verbose confHaddock -> ([outputFlag, -> "--odir=" ++ exeTargetDir, -> "--title=" ++ showPkg ++ ": " ++ synopsis pkg_descr, -> "--package=" ++ showPkg, -> "--dump-interface=" ++ haddockFile, -> "--prologue=" ++ prologName -> ] -> ++ map ("--use-package=" ++) showDepPkgs -> ++ programArgs confHaddock -> ++ (if verbose > 4 then ["--verbose"] else []) -> ++ outFiles -> ) -> removeFile prologName - -> getModulePaths :: BuildInfo -> [String] -> IO [FilePath] -> getModulePaths bi = -> fmap concat . -> mapM (flip (moduleToFilePath (hsSourceDirs bi)) ["hs", "lhs"]) - - -> allSuffixHandlers :: Maybe UserHooks -> -> [PPSuffixHandler] -> allSuffixHandlers hooks -> = maybe knownSuffixHandlers -> (\h -> overridesPP (hookedPreProcessors h) knownSuffixHandlers) -> hooks -> where -> overridesPP :: [PPSuffixHandler] -> [PPSuffixHandler] -> [PPSuffixHandler] -> overridesPP = unionBy (\x y -> fst x == fst y) +> main = defaultMainWithHooks defaultUserHooks |