diff options
| author | Ben Sima <ben@bsima.me> | 2020-11-28 19:20:57 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-11-30 19:01:38 -0500 |
| commit | c25390646bf9289dbba78a6d54f7e9a71fda3dc2 (patch) | |
| tree | 14d1ef3dc4ffd33f1498fca52678d3a90097c6bf /Biz/Bild.hs | |
| parent | 46efb70b6a0970c5b1faf448ee2bae469d0f725f (diff) | |
Use weekly branch names in pie, and small refactors
Diffstat (limited to 'Biz/Bild.hs')
| -rw-r--r-- | Biz/Bild.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/Biz/Bild.hs b/Biz/Bild.hs index 35ba7f0..2526395 100644 --- a/Biz/Bild.hs +++ b/Biz/Bild.hs @@ -265,7 +265,6 @@ build target@Target {..} = do putText <| show target Nix -> do putText <| "bild: nix: " <> Text.pack namespace - cwd <- Dir.getCurrentDirectory let outDir = root </> "_/bild/nix" Dir.createDirectoryIfMissing True outDir putText <| "bild: nix: remote: " <> Text.pack builder @@ -302,10 +301,6 @@ metaDep = Regex.string "-- : dep " *> Regex.many (Regex.psym Char.isAlpha) metaOut :: Regex.RE Char Out metaOut = Regex.string "-- : out " *> Regex.many (Regex.psym (/= ' ')) -require :: Text -> Maybe a -> a -require _ (Just x) = x -require s Nothing = panic <| s <> " not found" - -- | Replace 'a' in 's' with 'b'. reps :: String -> String -> String -> String reps a b s@(x : xs) = |