Fix unneeded dist files being installed along with GHC

2021-08-10 13:26:18 +02:00
parent 0a0fbd0cb6
commit dbf1d6f420
4 changed files with 19055 additions and 5 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -300,10 +300,6 @@ installUnpackedGHC path inst ver = do
    setModificationTime dest mtime
 #else
  PlatformRequest {..} <- lift getPlatformReq
-  liftIO $ copyDirectoryRecursive path inst $ \source dest -> do
-    mtime <- getModificationTime source
-    copyFile source dest
-    setModificationTime dest mtime

  let alpineArgs
       | ver >= [vver|8.2.2|], Linux Alpine <- _rPlatform