fix cmp fn in rangeToBuilderBy
commit19537300eb93afe186b2966b8224d64a76a6e098
authorSam Rijs <srijs@airpost.net>
dateFri 19 Jun 2015, 20:35 (11 years ago)
parent300410a
src/Database/PostgreSQL/Simple/Range.hs+1−1
@@ -132,7 +132,7 @@ rangeToBuilder :: Ord a => (a -> Builder) -> PGRange a -> Builder
132132rangeToBuilder = rangeToBuilderBy compare
133133
134134-- | 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
136136rangeToBuilderBy cmp f x =
137137 if isEmptyBy cmp x
138138 then byteString "'empty'"