diff options
| author | Ben Sima <ben@bsima.me> | 2023-04-24 20:11:10 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2023-04-28 08:05:28 -0400 |
| commit | 6697be5549e86574d98f6ecf3343f4d787e3301b (patch) | |
| tree | 4eb68e02368615e5ac8917e503e7bdd921dc7b67 | |
| parent | fb88a09b7da9ed1cc8e17856db501781e7ab7b9d (diff) | |
Parse more meta in scheme code
| -rw-r--r-- | Biz/Bild.hs | 11 |
1 files 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 \"" |