msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Setup.hs: ignore .* instead of . and .. when compiling/copying all files in a directory

Browse Source 
This avoids problems with .DS_Store files created by the Finder on OS X.
This commit is contained in:
hallgren
2015-07-22 14:34:02 +00:00
parent 9c364bbae9
commit 495f64db21
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Setup.hs
View File

@@ -82,7 +82,7 @@ rglCommands =
let prelude_src_dir = rgl_src_dir </> "prelude" let prelude_src_dir = rgl_src_dir </> "prelude"
prelude_dst_dir = rgl_dst_dir (lbi bi) </> "prelude" prelude_dst_dir = rgl_dst_dir (lbi bi) </> "prelude"
createDirectoryIfMissing True prelude_dst_dir createDirectoryIfMissing True prelude_dst_dir
files <- ls prelude_src_dir files <- list_files prelude_src_dir
run_gfc bi (["-s", "--gfo-dir="++prelude_dst_dir] ++ [prelude_src_dir </> file | file <- files]) run_gfc bi (["-s", "--gfo-dir="++prelude_dst_dir] ++ [prelude_src_dir </> file | file <- files])
, RGLCommand "all" True $ gfcp [l,s,c,t,sc] , RGLCommand "all" True $ gfcp [l,s,c,t,sc]
@@ -164,7 +164,7 @@ copyRGL args flags bi = do
copyAll s from to = do copyAll s from to = do
putStrLn $ "Installing [" ++ s ++ "] " ++ to putStrLn $ "Installing [" ++ s ++ "] " ++ to
createDirectoryIfMissing True to createDirectoryIfMissing True to
mapM_ (\file -> copyFile (from </> file) (to </> file)) =<< ls from mapM_ (\file -> copyFile (from </> file) (to </> file)) =<< list_files from
{- {-
sdistRGL pkg mb_lbi hooks flags = do sdistRGL pkg mb_lbi hooks flags = do
paths <- getRGLFiles rgl_src_dir [] paths <- getRGLFiles rgl_src_dir []
@@ -414,7 +414,7 @@ updateFile path new =
writeFile path new writeFile path new
-- | List files, excluding "." and ".." -- | List files, excluding "." and ".."
ls path = filter (`notElem` [".",".."]) `fmap` getDirectoryContents path list_files path = filter ((/=".").take 1) `fmap` getDirectoryContents path
-- | For parallel RGL module compilation -- | For parallel RGL module compilation