@@ -132,7 +132,7 @@ rangeToBuilder :: Ord a => (a -> Builder) -> PGRange a -> Builder
132rangeToBuilder = rangeToBuilderBy compare
132rangeToBuilder = rangeToBuilderBy compare
134-- | Generic range to builder for plain values
134-- | Generic range to builder for plain values
135−rangeToBuilderBy :: (a -> a -> Ordering) => (a -> Builder) -> PGRange a -> Builder
135+rangeToBuilderBy :: (a -> a -> Ordering) -> (a -> Builder) -> PGRange a -> Builder
136rangeToBuilderBy cmp f x =
136rangeToBuilderBy cmp f x =
137 if isEmptyBy cmp x
137 if isEmptyBy cmp x
138 then byteString "'empty'"
138 then byteString "'empty'"