Use installed mhs

augustss · Aug 23, 2024 · 79a4ccb · 79a4ccb
1 parent eafb40b
commit 79a4ccb
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/MicroCabal/Backend/MHS.hs b/src/MicroCabal/Backend/MHS.hs
@@ -89,13 +89,12 @@ mhsBuildExe env _ (Section _ name flds) = do
 mhs :: Env -> String -> IO ()
 mhs env args = do
   let flg = if verbose env == 1 then "-l " else if verbose env > 1 then "-v " else ""
-  mhsDir <- fmap (fromMaybe "/usr/local/lib/mhs") (lookupEnv "MHSDIR")
-  cmd env $ "MHSDIR=" ++ mhsDir ++ " mhs " ++ flg ++ args
+  -- mhsDir <- fmap (fromMaybe "/usr/local/lib/mhs") (lookupEnv "MHSDIR")
+  cmd env $ "mhs " ++ flg ++ args
 
 mhsOut :: Env -> String -> IO String
 mhsOut env args =
-  cmdOut env $ "MHSDIR=/usr/local/lib/mhs " ++    -- temporary hack
-            "mhs " ++ args
+  cmdOut env $ "mhs " ++ args
 
 findMainIs :: Env -> [FilePath] -> FilePath -> IO FilePath
 findMainIs _ [] fn = error $ "cannot find " ++ show fn