git.iko.soy/squeal
on dev help sign in
parens
9e69de7Eitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+2−2
compare with dev
unifiedsplit
@@ -2552,7 +2552,7 @@ instance RenderSQL TimeUnit where
2552 Millennia -> "millennia"
2552 Millennia -> "millennia"
2553
2553
2554-- | >>> printSQL $ interval_ 7 Days
2554-- | >>> printSQL $ interval_ 7 Days
2555−-- INTERVAL '7.0 days'
2555+-- (INTERVAL '7.0 days')
2556interval_ :: Double -> TimeUnit -> Expr (null 'PGinterval)
2556interval_ :: Double -> TimeUnit -> Expr (null 'PGinterval)
2557−interval_ num unit = UnsafeExpression $ "INTERVAL" <+>
2557+interval_ num unit = UnsafeExpression . parenthesized $ "INTERVAL" <+>
2558 "'" <> fromString (show num) <+> renderSQL unit <> "'"
2558 "'" <> fromString (show num) <+> renderSQL unit <> "'"