@@ -546,7 +546,7 @@ getThunkPtr thunkDir upstream = do
546 remotes <- lines <$> readProcess "hub" [ "-C", thunkDir, "remote" ] ""
546 remotes <- lines <$> readProcess "hub" [ "-C", thunkDir, "remote" ] ""
547 --Check that the upstream specified actually exists
547 --Check that the upstream specified actually exists
548 case L.find (== upstream) remotes of
548 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
550 Just _ -> return ()
550 Just _ -> return ()
551 -- iterate over cartesian product
551 -- iterate over cartesian product
552 forM_ repoHeads $ \hd -> do
552 forM_ repoHeads $ \hd -> do