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

refactor: Remove Protolude.Conv from RangeQuery

Browse Source
This commit is contained in:
monacoremo
2021-11-12 20:25:22 +01:00
committed by Remo
parent 47b6f04a66
commit 60db026dcc
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/RangeQuery.hs
+2 -3
View File
@@ -26,8 +26,7 @@ import Data.Ranged.Ranges
import Network.HTTP.Types.Header import Network.HTTP.Types.Header
import Network.HTTP.Types.Status import Network.HTTP.Types.Status
import Protolude hiding (toS) import Protolude
import Protolude.Conv (toS)
type NonnegRange = Range Integer type NonnegRange = Range Integer
@@ -37,7 +36,7 @@ rangeParse range = do
case listToMaybe (range =~ rangeRegex :: [[BS.ByteString]]) of case listToMaybe (range =~ rangeRegex :: [[BS.ByteString]]) of
Just parsedRange -> Just parsedRange ->
let [_, mLower, mUpper] = readMaybe . toS <$> parsedRange let [_, mLower, mUpper] = readMaybe . BS.unpack <$> parsedRange
lower = maybe emptyRange rangeGeq mLower lower = maybe emptyRange rangeGeq mLower
upper = maybe allRange rangeLeq mUpper in upper = maybe allRange rangeLeq mUpper in
rangeIntersection lower upper rangeIntersection lower upper