From 868aeace2d1a8c7d69083e6e298bc93d2a4517b5 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sat, 9 Feb 2008 03:30:59 +0000 Subject: Renamed default headers with .header extension; have Setup.hs look for these. (This fixes a bug where Setup.hs would find .svn directories.) git-svn-id: https://pandoc.googlecode.com/svn/trunk@1230 788f1e2b-df1e-0410-8736-df70ead52e1b --- Setup.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Setup.hs') diff --git a/Setup.hs b/Setup.hs index d402b4954..25960bcc4 100644 --- a/Setup.hs +++ b/Setup.hs @@ -2,7 +2,7 @@ import Distribution.Simple import Distribution.Simple.Setup import Distribution.PackageDescription import Distribution.Simple.LocalBuildInfo -import System.FilePath (combine, joinPath, takeFileName) +import System.FilePath (combine, joinPath, takeFileName, takeExtension) import System.Directory (getDirectoryContents, removeFile, copyFile) import System.IO (readFile, writeFile) import Control.Monad (foldM) @@ -52,7 +52,7 @@ fillS5WriterTemplate = fillDefaultHeadersTemplate :: IO () fillDefaultHeadersTemplate = do files <- getDirectoryContents (combine "templates" "headers") >>= - return . map (combine "headers") . filter (\x -> not (x `elem` [".",".."])) + return . map (combine "headers") . filter (\x -> takeExtension x == ".header") fillTemplate files "DefaultHeaders.hs" "DefaultHeaders.hs" -- Post-clean: remove the files generated from templates. -- cgit v1.2.3