generated from coulomb/repo-seed
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:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user