coulomb/inter-hub
2
0
Fork 0
generated from coulomb/repo-seed
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(WP-0017/E5): Layer 3 error fixes — round 3 (24 files)

Browse Source 
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:
Bernd Worsch
2026-04-12 13:11:32 +00:00
parent 3737845e02
commit 2c22766cd6
24 changed files with 81 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Web/Controller/HubRoutingRules.hs
View File

@@ -42,8 +42,8 @@ instance Controller HubRoutingRulesController where
|> fill @'["sourceHubId","targetHubId","matchCategory","matchWidgetType","priority","notes"]
|> validateField #sourceHubId nonEmpty
|> validateField #targetHubId nonEmpty
|> (case wtResult of { Left msg -> attachFailure #matchWidgetType msg; Right () -> id })
|> (case catResult of { Left msg -> attachFailure #matchCategory msg; Right () -> id })
|> (case wtResult of { Left msg -> attachFailure #matchWidgetType msg; Right () -> \x -> x })
|> (case catResult of { Left msg -> attachFailure #matchCategory msg; Right () -> \x -> x })
|> ifValid \case
Left r -> render NewView { rule = r, hubs }
Right r -> do
@@ -65,8 +65,8 @@ instance Controller HubRoutingRulesController where
catResult <- case mMatchCategory of { Nothing -> pure (Right ()); Just "" -> pure (Right ()); Just c -> liftIO (validateAnnotationCategory c) }
rule
|> fill @'["matchCategory","matchWidgetType","priority","notes"]
|> (case wtResult of { Left msg -> attachFailure #matchWidgetType msg; Right () -> id })
|> (case catResult of { Left msg -> attachFailure #matchCategory msg; Right () -> id })
|> (case wtResult of { Left msg -> attachFailure #matchWidgetType msg; Right () -> \x -> x })
|> (case catResult of { Left msg -> attachFailure #matchCategory msg; Right () -> \x -> x })
|> ifValid \case
Left r -> render EditView { rule = r, hubs }
Right r -> do