From 7b89187e865716bd20bf41c998e30bc91fa3f0b7 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 3 Aug 2022 18:06:32 -0400
Subject: Fix bild test

---
 Biz/Bild.hs | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/Biz/Bild.hs b/Biz/Bild.hs
index 2113b5a..8e64e43 100644
--- a/Biz/Bild.hs
+++ b/Biz/Bild.hs
@@ -139,14 +139,17 @@ main = Cli.main <| Cli.Plan help move test_ pure
         "Biz.Bild"
         [ Test.unit "can bild bild" <| do
             root <- Env.getEnv "BIZ_ROOT"
-            let Just ns = Namespace.fromPath root "Biz/Bild.hs"
-            analyze mempty ns
-              +> build False False
-              +> \case
-                [Exit.ExitFailure _] ->
-                  Test.assertFailure "can't bild bild"
-                _ ->
-                  pure ()
+            path <- Dir.makeAbsolute "Biz/Bild.hs"
+            case Namespace.fromPath root path of
+              Nothing -> Test.assertFailure "can't find ns for bild"
+              Just ns ->
+                analyze mempty ns
+                  +> build False False
+                  +> \case
+                    [Exit.ExitFailure _] ->
+                      Test.assertFailure "can't bild bild"
+                    _ ->
+                      pure ()
         ]
 
 move :: Cli.Arguments -> IO ()
-- 
cgit v1.2.3