From 11584bc3d34e54dc96a5dbda3f538c56843e71cb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=98ystein=20Hovind?= Date: Mon, 9 Mar 2020 11:51:51 +0100 Subject: [PATCH] Make `isJust_` == `not . isNothing_` --- beam-core/Database/Beam/Query/Combinators.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/beam-core/Database/Beam/Query/Combinators.hs b/beam-core/Database/Beam/Query/Combinators.hs index 85959418f..ae18fb656 100644 --- a/beam-core/Database/Beam/Query/Combinators.hs +++ b/beam-core/Database/Beam/Query/Combinators.hs @@ -841,7 +841,7 @@ instance BeamSqlBackend be => SqlDeconstructMaybe be (QGenExpr ctxt be s (Maybe instance ( BeamSqlBackend be, Beamable t) => SqlDeconstructMaybe be (t (Nullable (QGenExpr ctxt be s))) (t (QGenExpr ctxt be s)) s where - isJust_ t = allE (allBeamValues (\(Columnar' e) -> isJust_ e) t) + isJust_ = not_ . isNothing_ isNothing_ t = allE (allBeamValues (\(Columnar' e) -> isNothing_ e) t) maybe_ (QExpr onNothing) onJust tbl = let QExpr onJust' = onJust (changeBeamRep (\(Columnar' (QExpr e)) -> Columnar' (QExpr e)) tbl)