Fixes hlint suggestions

src/PostgREST/Auth.hs

@@ -50,7 +50,7 @@ claimsToSQL = map setVar . toList
   In case there is any problem decoding the JWT it returns Nothing.
 -}
 jwtClaims :: Text -> Text -> Maybe JWT.ClaimsMap
-jwtClaims secret input = JWT.unregisteredClaims <$> JWT.claims <$> decoded
+jwtClaims secret input = JWT.unregisteredClaims . JWT.claims <$> decoded
   where
     decoded = JWT.decodeAndVerifySignature (JWT.secret secret) input
 

src/PostgREST/PgStructure.hs

@@ -172,7 +172,7 @@ allRelations = do
     )
   |]
   let simpleRelations = foldr (addParentRelation.relationFromRow) [] rels
-      links = join $ map (combinations 2) $ filter ((>=1).length) $ groupWith groupFn $ filter ( (==Child). relType) simpleRelations
+      links = join $ map (combinations 2) $ filter (not . null) $ groupWith groupFn $ filter ( (==Child). relType) simpleRelations
   return $ simpleRelations ++ mapMaybe link2Relation links
   where
     groupFn :: Relation -> Text