Upgrade protolude to 0.3.1

2022-06-08 11:41:39 -05:00
parent 4ff2469f57
commit f9688c3553
6 changed files with 39 additions and 15 deletions
@@ -201,10 +201,10 @@ parse qs =
            o = rangeOffset ro

        limitParams =
-          M.fromList [(k, restrictRange (readMaybe $ toS v) allRange) | (k,v) <- limits]
+          M.fromList [(k, restrictRange (readMaybe v) allRange) | (k,v) <- limits]

        offsetParams =
-          M.fromList [(k, maybe allRange rangeGeq (readMaybe $ toS v)) | (k,v) <- offsets]
+          M.fromList [(k, maybe allRange rangeGeq (readMaybe v)) | (k,v) <- offsets]

 operator :: Text -> Maybe SimpleOperator
 operator = \case