diff options
Diffstat (limited to 'Biz/Bild/Deps.hs')
| -rw-r--r-- | Biz/Bild/Deps.hs | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/Biz/Bild/Deps.hs b/Biz/Bild/Deps.hs index 515d04c..17aae0d 100644 --- a/Biz/Bild/Deps.hs +++ b/Biz/Bild/Deps.hs @@ -45,7 +45,7 @@ instance MonadUnliftIO NIO where withRunInIO = wrappedWithRunInIO NIO runNIO getFindSourcesJson :: NIO FindSourcesJson ---getFindSourcesJson = ask +-- getFindSourcesJson = ask getFindSourcesJson = do root <- li <| getEnv "BIZ_ROOT" pure <| AtPath <| root </> "Biz/Bild/Sources.json" @@ -161,12 +161,12 @@ parseNixpkgs = parseNixpkgsFast <|> parseNixpkgsLatest <|> parseNixpkgsCustom <| <> Opts.help "Use a custom nixpkgs repository from GitHub." <> Opts.metavar "OWNER/REPO" ) - <*> Opts.strOption - ( Opts.long "nixpkgs-branch" - <> Opts.short 'b' - <> Opts.help "The nixpkgs branch when using --nixpkgs ...." - <> Opts.showDefault - ) + <*> Opts.strOption + ( Opts.long "nixpkgs-branch" + <> Opts.short 'b' + <> Opts.help "The nixpkgs branch when using --nixpkgs ...." + <> Opts.showDefault + ) parseNoNixpkgs = Opts.flag' NoNixpkgs @@ -684,8 +684,8 @@ abortUpdateFailed errs = abort <| T.unlines <| ["One or more packages failed to update:"] - <> map - ( \(PackageName pname, e) -> - pname <> ": " <> tshow e - ) - errs + <> map + ( \(PackageName pname, e) -> + pname <> ": " <> tshow e + ) + errs |