git.iko.soy/typeable/postgresql-simple
on master help sign in
Merge pull request #150 from srijs/fix/range-to-builder-by-constraint
32f1aaeLeon P Smith
.travis.yml+4
compare with master
unifiedsplit
@@ -1,5 +1,9 @@
1language: haskell
1language: haskell
2
2
3+ghc:
4+ - 7.6
5+ - 7.8
6+
3addons:
7addons:
4 postgresql: "9.3"
8 postgresql: "9.3"
5
9
src/Database/PostgreSQL/Simple/Range.hs+1−1
@@ -132,7 +132,7 @@ rangeToBuilder :: Ord a => (a -> Builder) -> PGRange a -> Builder
132rangeToBuilder = rangeToBuilderBy compare
132rangeToBuilder = rangeToBuilderBy compare
133
133
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'"