git.iko.soy/typeable/bloodhound
on master help sign in
unnecessary brackets
1f0725aChris Allen
src/Database/Bloodhound/Types.hs+1−1
@@ -1447,7 +1447,7 @@ instance ToJSON Query where
1447omitNulls :: [(Text, Value)] -> Value
1447omitNulls :: [(Text, Value)] -> Value
1448omitNulls = object . filter notNull where
1448omitNulls = object . filter notNull where
1449 notNull (_, Null) = False
1449 notNull (_, Null) = False
1450− notNull (_, (Array a)) = (not . V.null) a
1450+ notNull (_, Array a) = (not . V.null) a
1451 notNull _ = True
1451 notNull _ = True
1452
1452
1453
1453