From 93da32c1d43945c709fadf3fcaaedef369cc8046 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 15 Oct 2009 06:44:40 +0000
Subject: [PATCH] bugfix in Setup.hs for Linux

---
 Setup.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Setup.hs b/Setup.hs
index 3d6fc3fbb..2c8bd878b 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -111,7 +111,7 @@ copyRGL args flags pkg lbi = do
 copyAll s from to = do
   putStrLn $ "Installing [" ++ s ++ "] " ++ to
   createDirectoryIfMissing True to
-  files <- fmap (drop 2) $ getDirectoryContents from
+  files <- fmap (filter (\f -> take 1 f /= ".")) $ getDirectoryContents from
   mapM_ (\file -> copyFile (from </> file) (to </> file)) files
 
 sdistRGL pkg mb_lbi hooks flags = do