@@ -546,7 +546,7 @@ getThunkPtr thunkDir upstream = do
546546 remotes <- lines <$> readProcess "hub" [ "-C", thunkDir, "remote" ] ""
547547 --Check that the upstream specified actually exists
548548 case L.find (== upstream) remotes of
549− Nothing -> failWith $ T.pack $ "thunk pack: upstream " <> upstream <> " does not exist"
549+ Nothing -> failWith $ T.pack $ "thunk pack: upstream " <> upstream <> " does not exist. Available upstreams are " <> L.intercalate ", " remotes
550550 Just _ -> return ()
551551 -- iterate over cartesian product
552552 forM_ repoHeads $ \hd -> do