diff options
Diffstat (limited to 'Biz/Bild/Deps.hs')
| -rw-r--r-- | Biz/Bild/Deps.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Biz/Bild/Deps.hs b/Biz/Bild/Deps.hs index 08e3ee6..0b57a4f 100644 --- a/Biz/Bild/Deps.hs +++ b/Biz/Bild/Deps.hs @@ -50,7 +50,7 @@ getFindSourcesJson = do root <- li <| getEnv "CODEROOT" pure <| AtPath <| root </> "Biz/Bild/Sources.json" -li :: MonadIO io => IO a -> io a +li :: (MonadIO io) => IO a -> io a li = liftIO main :: IO () @@ -391,7 +391,7 @@ cmdShow = \case sources <- unSources </ li (getSources fsj) forWithKeyM_ sources <| showPackage -showPackage :: MonadIO io => PackageName -> PackageSpec -> io () +showPackage :: (MonadIO io) => PackageName -> PackageSpec -> io () showPackage (PackageName pname) (PackageSpec spec) = do tsay <| tbold pname forM_ (KM.toList spec) <| \(attrName, attrValValue) -> do @@ -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 |