diff --git a/src/Protolude.hs b/src/Protolude.hs
index f78d5f05a..371aea749 100644
--- a/src/Protolude.hs
+++ b/src/Protolude.hs
@@ -406,11 +406,10 @@ pass :: Applicative f => f ()
 pass = pure ()
 
 guarded :: (Alternative f) => (a -> Bool) -> a -> f a
-guarded p x = bool empty (pure x) (p x)
+guarded p x = X.bool empty (pure x) (p x)
 
 guardedA :: (Functor f, Alternative t) => (a -> f Bool) -> a -> f (t a)
-guardedA p x = bool empty (pure x) <$> p x
-
+guardedA p x = X.bool empty (pure x) <$> p x
 
 show :: (Show a, StringConv String b) => a -> b
 show x = toS (PBase.show x)