Fix a partial lambda pattern #1591

commercialhaskell · Jan 3, 2016 · a19f524 · a19f524
1 parent 3068c9b
commit a19f524
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Stack/Build/Execute.hs b/src/Stack/Build/Execute.hs
@@ -996,7 +996,9 @@ singleBuild runInBase ac@ActionContext {..} ee@ExecuteEnv {..} task@Task {..} in
                         , "--force"
                         , packageIdentifierString taskProvides
                         ])
-                    (\(ReadProcessException _ _ _ _) -> return ())
+                    (\ex -> case ex of
+                        ReadProcessException{} -> return ()
+                        _ -> throwM ex)
 
                 readProcessNull Nothing menv' "ghc-pkg"
                     [ "register"