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

1 files changed, 2 insertions, 2 deletions

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.