@@ -54,8 +54,8 @@ sne = \case
56sin :: (DBEq db, Foldable f)
56sin :: (DBEq db, Foldable f)
57− => Nullability db a -> f (Expr a) -> Expr a -> Expr Bool
57+ => Nullability db a -> Expr a -> f (Expr a) -> Expr Bool
58−sin nullability (toList -> as) a = case nullability of
58+sin nullability a (toList -> as) = case nullability of
59 Nullable -> or_ $ map (seq Nullable a) as
59 Nullable -> or_ $ map (seq Nullable a) as
60 NonNullable -> case nonEmpty as of
60 NonNullable -> case nonEmpty as of
61 Nothing -> false
61 Nothing -> false
@@ -128,5 +128,5 @@ infix 4 /=?
129-- >>> select c $ return $ lit (42 :: Int32) `in_` [ lit x | x <- [1..5] ]
129-- >>> select c $ return $ lit (42 :: Int32) `in_` [ lit x | x <- [1..5] ]
130-- [False]
130-- [False]
131−in_ :: (Sql DBEq a, Foldable f) => f (Expr a) -> Expr a -> Expr Bool
131+in_ :: (Sql DBEq a, Foldable f) => Expr a -> f (Expr a) -> Expr Bool
132in_ = sin nullabilization
132in_ = sin nullabilization