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

Setup.hs: comment out sDistHook, which seems to be broken but is not used

Browse Source
This commit is contained in:
hallgren
2014-10-14 15:03:47 +00:00
parent 6aa0fd2590
commit 47ebd444b3
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

@@ -28,7 +28,7 @@ main = defaultMainWithHooks simpleUserHooks{ preBuild = gfPreBuild
, postInst = gfPostInst , postInst = gfPostInst
, preCopy = const . checkRGLArgs , preCopy = const . checkRGLArgs
, postCopy = gfPostCopy , postCopy = gfPostCopy
, sDistHook = sdistRGL -- , sDistHook = sdistRGL
} }
where where
gfPreBuild args = gfPre args . buildDistPref gfPreBuild args = gfPre args . buildDistPref
@@ -164,7 +164,7 @@ 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)) =<< ls 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 []
let pkg' = pkg{dataFiles=paths} let pkg' = pkg{dataFiles=paths}
@@ -181,7 +181,7 @@ sdistRGL pkg mb_lbi hooks flags = do
then return (path : paths) then return (path : paths)
else return paths else return paths
else getRGLFiles path paths else getRGLFiles path paths
-}
rgl_src_dir = "lib" </> "src" rgl_src_dir = "lib" </> "src"
rgl_dst_dir lbi = buildDir lbi </> "rgl" rgl_dst_dir lbi = buildDir lbi </> "rgl"