try smarter

well-typed · Jan 13, 2025 · 65eb9e7 · 65eb9e7
1 parent 7d66de5
commit 65eb9e7
Showing 1 changed file with 5 additions and 10 deletions.
diff --git a/c-expr/test/Main.hs b/c-expr/test/Main.hs
@@ -63,8 +63,8 @@ import CallClang
 
 --------------------------------------------------------------------------------
 
-findPackageDirectory :: FilePath -> String -> IO FilePath
-findPackageDirectory cwd pkgname = try attempts
+findPackageDirectory :: String -> IO FilePath
+findPackageDirectory pkgname = try attempts
   where
     try :: [FilePath] -> IO FilePath
     try [] =
@@ -87,19 +87,14 @@ findPackageDirectory cwd pkgname = try attempts
         else Nothing
     attempts :: [FilePath]
     attempts =
-      [ cwd
-      , cwd </> pkgname
-      , cwd </> ".."
-      , cwd </> ".." </> pkgname
-      , cwd </> ".." </> ".."
-      , cwd </> ".." </> ".." </> pkgname
+      [ "."
+      , pkgname
       ]
 
 main :: IO ()
 main = do
 
-  cwd <- getCurrentDirectory
-  hsBindgenDir <- findPackageDirectory cwd "hs-bindgen"
+  hsBindgenDir <- findPackageDirectory "hs-bindgen"
 
   let platform = buildPlatform
       clangArgs0 =