make GenerateManpage look in src/

This commit is contained in:
Adam Vogt 2014-05-11 17:14:07 +00:00
parent 7eb6ba0126
commit a9de363b14

View File

@ -65,7 +65,7 @@ main = do
releaseName <- (show . disp . package . packageDescription) releaseName <- (show . disp . package . packageDescription)
`liftM`readPackageDescription normal "xmonad.cabal" `liftM`readPackageDescription normal "xmonad.cabal"
keybindings <- (intercalate "\n\n" . map markdownDefn . allBindings) keybindings <- (intercalate "\n\n" . map markdownDefn . allBindings)
`liftM` readFile "./XMonad/Config.hs" `liftM` readFile "./src/XMonad/Config.hs"
let manHeader = unwords [".TH xmonad 1","\""++releaseDate++"\"",releaseName,"\"xmonad manual\""] let manHeader = unwords [".TH xmonad 1","\""++releaseDate++"\"",releaseName,"\"xmonad manual\""]
writeOpts = defaultWriterOptions -- { writerLiterateHaskell = True } writeOpts = defaultWriterOptions -- { writerLiterateHaskell = True }