nix: Update nixpkgs and static-haskell-nix

src/PostgREST/OpenAPI.hs

@@ -88,7 +88,7 @@ makeProperty rels pks c = (colName c, Inline s)
           Relationship{relColumns, relCardinality=M2O _} -> [c] == relColumns
           _                                                 -> False
           ) rels
-        fCol = colName <$> (headMay =<< (relForeignColumns <$> rel))
+        fCol = colName <$> (headMay . relForeignColumns =<< rel)
         fTbl = tableName . relForeignTable <$> rel
         fTblCol = (,) <$> fTbl <*> fCol
       in

src/PostgREST/Request/ApiRequest.hs

@@ -377,9 +377,9 @@ userApiRequest conf@AppConfig{..} dbStructure req reqBody
   headerRange = rangeRequested hdrs
   replaceLast x s = T.intercalate "." $ L.init (T.split (=='.') s) ++ [x]
   limitParams :: M.HashMap ByteString NonnegRange
-  limitParams  = M.fromList [(toS (replaceLast "limit" k), restrictRange (readMaybe =<< (toS <$> v)) allRange) | (k,v) <- qParams, isJust v, endingIn ["limit"] k]
+  limitParams  = M.fromList [(toS (replaceLast "limit" k), restrictRange (readMaybe . toS =<< v) allRange) | (k,v) <- qParams, isJust v, endingIn ["limit"] k]
   offsetParams :: M.HashMap ByteString NonnegRange
-  offsetParams = M.fromList [(toS (replaceLast "limit" k), maybe allRange rangeGeq (readMaybe =<< (toS <$> v))) | (k,v) <- qParams, isJust v, endingIn ["offset"] k]
+  offsetParams = M.fromList [(toS (replaceLast "limit" k), maybe allRange rangeGeq (readMaybe . toS =<< v)) | (k,v) <- qParams, isJust v, endingIn ["offset"] k]
 
   urlRange = M.unionWith f limitParams offsetParams
     where

src/PostgREST/Request/DbRequestBuilder.hs

@@ -63,8 +63,7 @@ readRequest schema rootTableName maxRows allRels apiRequest  =
   mapLeft ApiRequestError $
   treeRestrictRange maxRows =<<
   augmentRequestWithJoin schema rootRels =<<
-  addFiltersOrdersRanges apiRequest =<<
-  (initReadRequest rootName <$> pRequestSelect sel)
+  (addFiltersOrdersRanges apiRequest . initReadRequest rootName =<< pRequestSelect sel)
   where
     sel = fromMaybe "*" $ iSelect apiRequest -- default to all columns requested (SELECT *) for a non existent ?select querystring param
     (rootName, rootRels) = rootWithRels schema rootTableName allRels (iAction apiRequest)