1 files changed, 1 insertions, 1 deletions
diff --git a/Setup.hs b/Setup.hs
index 2470a527d..ec035614e 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -45,7 +45,7 @@ fillDefaultHeadersTemplate :: IO ()
 fillDefaultHeadersTemplate = do
   files <- getDirectoryContents (combine "templates" "headers") >>= 
              return . map (combine "headers") . filter (\x -> not (x `elem` [".",".."]))
-  fillTemplate files "DefaultHeaders.hs" (combine "Writers" "DefaultHeaders.hs")
+  fillTemplate files "DefaultHeaders.hs" "DefaultHeaders.hs"
 
 -- Post-clean: remove the files generated from templates.
 myPostClean :: Args -> CleanFlags -> PackageDescription -> Maybe LocalBuildInfo -> IO ()