Julian Ospald · Julian Ospald
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
      (path </> cabalFile)
      (destPath)
      Overwrite
-    lift $ chmod_777 destPath
+    lift $ chmod_755 destPath
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
        (path </> f)
        (inst </> toF)
        Overwrite
-      lift $ chmod_777 (inst </> toF)
+      lift $ chmod_755 (inst </> toF)
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
      (path </> wrapper)
      (inst </> toF)
      Overwrite
-    lift $ chmod_777 (inst </> toF)
+    lift $ chmod_755 (inst </> toF)
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
  handleIO (throwE . CopyError . show) $ liftIO $ copyFile p
                                                           fullDest
                                                           Overwrite
-  lift $ chmod_777 fullDest
+  lift $ chmod_755 fullDest
--- a/lib/GHCup/Utils/File.hs
+++ b/lib/GHCup/Utils/File.hs
        pure False


-chmod_777 :: (MonadLogger m, MonadIO m) => Path a -> m ()