disambiguate range selection when plurality=singular

2015-11-24 09:39:44 +02:00
parent e623cf8198
commit f678dff735
2 changed files with 3 additions and 5 deletions
@@ -20,6 +20,7 @@ import           PostgREST.RangeQuery    (NonnegRange, rangeRequested)
 import           PostgREST.Types         (QualifiedIdentifier (..),
                                          Schema, Payload(..),
                                          UniformObjects(..))
+import           Data.Ranged.Ranges      (singletonRange)                                          

 type RequestBody = BL.ByteString

@@ -114,7 +115,7 @@ userApiRequest schema req reqBody =

  ApiRequest {
    iAction = action
-  , iRange  = if singular then Nothing else rangeRequested hdrs
+  , iRange  = if singular then Just (singletonRange 0) else rangeRequested hdrs
  , iTarget = target
  , iAccepts = pickContentType $ lookupHeader "accept"
  , iPayload = relevantPayload