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

rangeParse: fix incomplete pattern match warning

Browse Source 
The warning is new in GHC 9.2 compared to 8.10.
This commit is contained in:
Robert Vollmert
2022-06-16 10:37:05 +02:00
parent 356bff9cbd
commit ba87a60a47
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/RangeQuery.hs
+7 -6
View File
@@ -36,13 +36,14 @@ rangeParse :: BS.ByteString -> NonnegRange
rangeParse range = do rangeParse range = do
let rangeRegex = "^([0-9]+)-([0-9]*)$" :: BS.ByteString let rangeRegex = "^([0-9]+)-([0-9]*)$" :: BS.ByteString
case listToMaybe (range =~ rangeRegex :: [[BS.ByteString]]) of case range =~ rangeRegex :: [[BS.ByteString]] of
Just parsedRange -> [[_, l, u]] ->
let [_, mLower, mUpper] = readMaybe . BS.unpack <$> parsedRange let lower = maybe emptyRange rangeGeq (readInteger l)
lower = maybe emptyRange rangeGeq mLower upper = maybe allRange rangeLeq (readInteger u) in
upper = maybe allRange rangeLeq mUpper in
rangeIntersection lower upper rangeIntersection lower upper
Nothing -> allRange _ -> allRange
where
readInteger = readMaybe . BS.unpack
rangeRequested :: RequestHeaders -> NonnegRange rangeRequested :: RequestHeaders -> NonnegRange
rangeRequested headers = maybe allRange rangeParse $ lookup hRange headers rangeRequested headers = maybe allRange rangeParse $ lookup hRange headers