Merge pull request #150 from srijs/fix/range-to-builder-by-constraint
fix cmp fn in rangeToBuilderBy
commit32f1aae97556b593629b4e09ef57b36566ec4feb
authorLeon P Smith <leon.p.smith+github@gmail.com>
dateSun 21 Jun 2015, 01:23 (11 years ago)
parent300410a777f15a
.travis.yml+4
@@ -1,5 +1,9 @@
11language: haskell
22
3+ghc:
4+ - 7.6
5+ - 7.8
6+
37addons:
48 postgresql: "9.3"
59
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'"