ref: 786f4acce98ea33847b439bad8545ca866958918
parent: e83058f4c2c0fa30fc8737a68ed9309a66e038dc
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Mon Oct 28 06:56:29 EDT 2024
Fix shadow warning.
--- a/src/MicroHs/Main.hs
+++ b/src/MicroHs/Main.hs
@@ -295,9 +295,9 @@
-- into
-- .../.mcabal/mhs-0.10.3.0/data/base-0.10.3.0/include
convertToInclude :: String -> FilePath -> FilePath
-convertToInclude inc pkgPath =
- let path1 = init $ dropWhileEnd (/= '/') pkgPath -- .../.mcabal/mhs-0.10.3.0/packages
- base1 = takeWhileEnd (/= '/') pkgPath -- base-0.10.3.0.pkg
+convertToInclude inc pkg =
+ let path1 = init $ dropWhileEnd (/= '/') pkg -- .../.mcabal/mhs-0.10.3.0/packages
+ base1 = takeWhileEnd (/= '/') pkg -- base-0.10.3.0.pkg
base2 = init $ dropWhileEnd (/= '.') base1 -- base-0.10.3.0
path2 = dropWhileEnd (/= '/') path1 -- .../.mcabal/mhs-0.10.3.0/
in path2 ++ "data/" ++ base2 ++ inc -- .../.mcabal/mhs-0.10.3.0/data/base-0.10.3.0/include
--
⑨