From c25390646bf9289dbba78a6d54f7e9a71fda3dc2 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 28 Nov 2020 19:20:57 -0500 Subject: Use weekly branch names in pie, and small refactors --- Biz/Bild.hs | 5 ----- 1 file changed, 5 deletions(-) (limited to 'Biz/Bild.hs') 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) = -- cgit v1.2.3