packdeps 0.4.0.2 → 0.4.0.3

raw patch · 2 files changed

+9/−9 lines, 2 files

Files

• packdeps.cabal +1/−1
• tools/packdeps-cli.hs +8/−8

@@ -1,5 +1,5 @@ name:            packdeps-version:         0.4.0.2+version:         0.4.0.3 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>

@@ -1,5 +1,5 @@ import Distribution.PackDeps-import Control.Monad (forM_)+import Control.Monad (forM_, foldM) import System.Environment (getArgs, getProgName) import System.Exit (exitFailure, exitSuccess) import Distribution.Text (display)@@ -11,14 +11,16 @@     case args of         [] -> usageExit         ["help"] -> usageExit-        _ -> run args+        _ -> do+            isGood <- run args+            if isGood then exitSuccess else exitFailure -run :: [String] -> IO ()+run :: [String] -> IO Bool run args = do     newest <- loadNewest-    mapM_ (go newest) args+    foldM (go newest) True args   where-    go newest fp = do+    go newest wasAllGood fp = do         mdi <- loadPackage fp         di <-             case mdi of@@ -43,9 +45,7 @@                 forM_ p $ \(x, y) -> putStrLn $ x ++ " " ++ y                 return False         putStrLn ""-        if allGood-            then exitSuccess-            else exitFailure+        return $ wasAllGood && allGood  unPackageName :: PackageName -> String unPackageName (PackageName n) = n