@@ -814,11 +814,11 @@ packThunk = packThunk' False
814814
815815packThunk' :: MonadObelisk m => Bool -> ThunkPackConfig -> FilePath -> m ThunkPtr
816816packThunk' noTrail (ThunkPackConfig force thunkConfig) thunkDir = checkThunkDirectory thunkDir *> readThunk thunkDir >>= \case
817− Left err -> failWith [i|Can't pack thunk at ${thunkDir}: ${err}|]
818817 Right (ThunkData_Packed _) -> failWith [i|Thunk at ${thunkDir} is is already packed|]
819− Right (ThunkData_Checkout _) -> do
820− withSpinner' ("Packing thunk " <> T.pack thunkDir)
821− (finalMsg noTrail $ const $ "Packed thunk " <> T.pack thunkDir) $ do
818+ _ -> withSpinner'
819+ ("Packing thunk " <> T.pack thunkDir)
820+ (finalMsg noTrail $ const $ "Packed thunk " <> T.pack thunkDir) $
821+ do
822822 thunkPtr <- modifyThunkPtrByConfig thunkConfig <$> getThunkPtr (not force) thunkDir (_thunkConfig_private thunkConfig)
823823 callProcessAndLogOutput (Debug, Error) $ proc rmPath ["-rf", thunkDir] -- thunkDir may be a symlink
824824 createThunk thunkDir thunkPtr