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

1 files changed, 3 insertions, 3 deletions

diff --git a/Setup.hs b/Setup.hs
index 8a426d1dd..a2527a843 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -28,7 +28,7 @@ main = defaultMainWithHooks simpleUserHooks{ preBuild  = gfPreBuild
                                            , postInst  = gfPostInst
                                            , preCopy   = const . checkRGLArgs
                                            , postCopy  = gfPostCopy
-                                           , sDistHook = sdistRGL
+--                                         , sDistHook = sdistRGL
                                            }
   where
     gfPreBuild args  = gfPre args . buildDistPref
@@ -164,7 +164,7 @@ copyAll s from to = do
   putStrLn $ "Installing [" ++ s ++ "] " ++ to
   createDirectoryIfMissing True to
   mapM_ (\file -> copyFile (from </> file) (to </> file)) =<< ls from
-
+{-
 sdistRGL pkg mb_lbi hooks flags = do
   paths <- getRGLFiles rgl_src_dir []
   let pkg' = pkg{dataFiles=paths}
@@ -181,7 +181,7 @@ sdistRGL pkg mb_lbi hooks flags = do
                then return (path : paths)
                else return paths
         else getRGLFiles path paths
-
+-}
 rgl_src_dir         = "lib" </> "src"
 rgl_dst_dir lbi = buildDir lbi </> "rgl"