fix(WP-0017/E5): Layer 3 error fixes — round 3 (24 files)
Int16→Int in score/stars functions; uuid-based readMay→UUID.fromText; autoRefresh do-notation fix; id→\x->x ambiguity in HubRoutingRules; MarketplaceDashboard replaced raw SQL with IHP query builder; optional hub selector in TypeRegistry views via CanSelect (Text, Maybe Id) instance added to Web.View.Prelude; import consolidations to Web.View.Prelude. Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
parent
3737845e02
commit
2c22766cd6
24 changed files with 81 additions and 110 deletions
|
|
@ -10,6 +10,7 @@ import IHP.ControllerPrelude
|
|||
import Data.Aeson (object, (.=))
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Text.Encoding as TE
|
||||
import qualified Data.UUID as UUID
|
||||
import qualified "cryptohash-sha256" Crypto.Hash.SHA256 as SHA256
|
||||
import qualified Data.ByteString.Base16 as Base16
|
||||
import qualified Data.ByteString.Random as Random
|
||||
|
|
@ -50,7 +51,7 @@ instance Controller ApiV2TokenController where
|
|||
]
|
||||
(Just cid, Just csec) -> do
|
||||
-- Look up consumer by id
|
||||
case readMay cid of
|
||||
case UUID.fromText cid of
|
||||
Nothing -> respondWithStatus 400 $ object
|
||||
["error" .= ("invalid_client" :: Text)]
|
||||
Just rawId -> do
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue