From 6697be5549e86574d98f6ecf3343f4d787e3301b Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 24 Apr 2023 20:11:10 -0400
Subject: Parse more meta in scheme code

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

diff --git a/Biz/Bild.hs b/Biz/Bild.hs
index eec4d97..4f8b1e4 100644
--- a/Biz/Bild.hs
+++ b/Biz/Bild.hs
@@ -488,10 +488,10 @@ analyze hmap ns = case Map.lookup ns hmap of
               |> Just
               |> pure
         Namespace.Scm ->
-          Meta.detectOut (Meta.out ";;") contentLines |> \out ->
+          Meta.detectAll ";;" contentLines |> \Meta.Parsed {..} ->
             Target
-              { langdeps = Set.empty,
-                sysdeps = Set.empty,
+              { langdeps = pdep,
+                sysdeps = psys,
                 compiler = Guile,
                 compilerFlags =
                   [ "compile",
@@ -502,9 +502,10 @@ analyze hmap ns = case Map.lookup ns hmap of
                   ]
                     |> map Text.pack,
                 builder = Local user,
-                outPath = outToPath out,
+                outPath = outToPath pout,
+                out = pout,
                 wrapper =
-                  (out == Meta.None)
+                  (pout == Meta.None)
                     ?: ( Nothing,
                          [ "#!/usr/bin/env bash",
                            "guile -C \""
-- 
cgit v1.2.3