diff --git a/lib/GHup.hs b/lib/GHup.hs
index 5890037..32834d6 100644
--- a/lib/GHup.hs
+++ b/lib/GHup.hs
@@ -254,7 +254,7 @@ deleteFork :: AuthMethod am
 deleteFork am owner repo = runExceptT $ do
   (withExceptT show $ ExceptT $ github' (repositoryR owner repo)) >>= \case
     (Repo { repoFork = Just True }) -> pure ()
-    _                               -> fail "Not a fork"
+    _                               -> throwError "Not a fork"
   withExceptT show $ ExceptT $ github am (deleteRepoR owner repo)