diff --git a/Data/Vector.hs b/Data/Vector.hs
index 8b4c9821c265f7cea6fcab3ae6af10817b1f8a7f..ed54bc2e374a4fb0a68c6e42e5e41a682018a3ac 100644
--- a/Data/Vector.hs
+++ b/Data/Vector.hs
@@ -355,7 +355,7 @@ instance Monad Vector where
 
 #if !(MIN_VERSION_base(4,13,0))
   {-# INLINE fail #-}
-  fail = Fail.fail
+  fail _ = empty
 #endif
 
 instance Fail.MonadFail Vector where