From b0e9ded3cd30f7bb3a16595a4a4eab3eb5abd99b Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 14 Oct 2014 15:03:47 +0000
Subject: [PATCH] Setup.hs: comment out sDistHook, which seems to be broken but
 is not used

---
 Setup.hs | 6 +++---
 1 file 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"