From 860f74b3c2323fbf2d5d12954292b3e4e171e437 Mon Sep 17 00:00:00 2001 From: Stephen Diehl Date: Fri, 14 Oct 2016 14:06:57 +0100 Subject: [PATCH] Use explicit 'bool' import. --- src/Protolude.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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)