jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Idomatic range creation

Browse Source
This commit is contained in:
Joe Nelson
2014-07-28 17:36:00 -07:00
parent f6a4a98e74
commit a7451f0e96
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
RangeQuery.hs
+2 -2
View File
@@ -16,11 +16,11 @@ import Data.Maybe (fromMaybe, listToMaybe)
rangeGeq :: Int -> Range Int rangeGeq :: Int -> Range Int
rangeGeq n = rangeGeq n =
head $ rangeUnion (singletonRange n) $ Range (BoundaryAbove n) BoundaryAboveAll Range (BoundaryBelow n) BoundaryAboveAll
rangeLeq :: Int -> Range Int rangeLeq :: Int -> Range Int
rangeLeq n = rangeLeq n =
head $ rangeUnion (singletonRange n) $ Range BoundaryBelowAll (BoundaryBelow n) Range BoundaryBelowAll (BoundaryAbove n)
parseRange :: String -> Maybe(Range Int) parseRange :: String -> Maybe(Range Int)
parseRange range = do parseRange range = do