jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use explicit 'bool' import.

Browse Source
This commit is contained in:
Stephen Diehl
2016-10-14 14:06:57 +01:00
parent a86046b654
commit 860f74b3c2
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Protolude.hs
+2 -3
View File
@@ -406,11 +406,10 @@ pass :: Applicative f => f ()
pass = pure () pass = pure ()
guarded :: (Alternative f) => (a -> Bool) -> a -> f a 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 :: (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 :: (Show a, StringConv String b) => a -> b
show x = toS (PBase.show x) show x = toS (PBase.show x)