on dev help sign in
adjust nullities
commit64a17baa6faf4b0c9e2036f6cc2a31599c975588 authorEitan Chatav <eitan@Eitans-MacBook-Pro.local> dateMon 18 Mar 2019, 18:12 (8 years ago) parent4376f58
1 file changed+6−6
squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+6−6
squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+6−6
@@ -977,42 +977,42 @@ isNotDistinctFrom = unsafeBinaryOp "IS NOT DISTINCT FROM"
977977>>> printSQL $ true & isTrue
978978(TRUE IS TRUE)
979979-}
980−isTrue :: null 'PGbool :--> 'NotNull 'PGbool
980+isTrue :: null0 'PGbool :--> null1 'PGbool
981981isTrue = unsafeUnaryOpR "IS TRUE"
982982
983983{- | is false or unknown
984984>>> printSQL $ true & isNotTrue
985985(TRUE IS NOT TRUE)
986986-}
987−isNotTrue :: null 'PGbool :--> 'NotNull 'PGbool
987+isNotTrue :: null0 'PGbool :--> null1 'PGbool
988988isNotTrue = unsafeUnaryOpR "IS NOT TRUE"
989989
990990{- | is false
991991>>> printSQL $ true & isFalse
992992(TRUE IS FALSE)
993993-}
994−isFalse :: null 'PGbool :--> 'NotNull 'PGbool
994+isFalse :: null0 'PGbool :--> null1 'PGbool
995995isFalse = unsafeUnaryOpR "IS FALSE"
996996
997997{- | is true or unknown
998998>>> printSQL $ true & isNotFalse
999999(TRUE IS NOT FALSE)
10001000-}
1001−isNotFalse :: null 'PGbool :--> 'NotNull 'PGbool
1001+isNotFalse :: null0 'PGbool :--> null1 'PGbool
10021002isNotFalse = unsafeUnaryOpR "IS NOT FALSE"
10031003
10041004{- | is unknown
10051005>>> printSQL $ true & isUnknown
10061006(TRUE IS UNKNOWN)
10071007-}
1008−isUnknown :: null 'PGbool :--> 'NotNull 'PGbool
1008+isUnknown :: null0 'PGbool :--> null1 'PGbool
10091009isUnknown = unsafeUnaryOpR "IS UNKNOWN"
10101010
10111011{- | is true or false
10121012>>> printSQL $ true & isNotUnknown
10131013(TRUE IS NOT UNKNOWN)
10141014-}
1015−isNotUnknown :: null 'PGbool :--> 'NotNull 'PGbool
1015+isNotUnknown :: null0 'PGbool :--> null1 'PGbool
10161016isNotUnknown = unsafeUnaryOpR "IS NOT UNKNOWN"
10171017
10181018-- | >>> printSQL currentDate