feat(WP-0011): IHF Phase 10 — Hub Registry and Widget Marketplace

Delivers the hub registry discovery UI, widget pattern library,
governance template library, and marketplace dashboard.

Key changes:
- Schema: widget_patterns (widget_type FK to registry), widget_pattern_versions,
  pattern_adoptions, governance_templates (categories JSONB, validated at
  controller), governance_template_clones — all GAAF-compliant, no bare TEXT
  type discriminators
- Migration: 1743897600-ihf-phase10-hub-registry.sql
- HubRegistry controller + views: browsable view over hub_capability_manifests,
  hub_health_snapshots, hubs with per-hub GAAF compliance indicator
- WidgetPatterns controller + views: publish, version, adopt; adoption
  triggers manifest amendment draft when new types are introduced
- GovernanceTemplates controller + views: CRUD, clone with category
  validation against annotation_category_registry
- MarketplaceDashboard controller + view: full-text search, widget-type
  filter, sort, trending panel, autoRefresh
- API v2: /api/v2/hub-registry, /api/v2/widget-patterns (+ adopt endpoint)
- OpenAPI spec updated with Phase 10 paths
- GAAF scorecard: Customization 2.5 → 3.2; overall 3.41 → 3.56 (Strong)
- CLAUDE.md: Phase 10 complete; active workplan → Phase 11

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>

Web/Controller/Api/V2/HubRegistry.hs

@@ -0,0 +1,79 @@
+module Web.Controller.Api.V2.HubRegistry where
+
+-- GET /api/v2/hub-registry       — list hubs with active manifest summary + GAAF indicator
+-- GET /api/v2/hub-registry/:hubId — single hub detail
+
+import Web.Types
+import Generated.Types
+import IHP.Prelude
+import IHP.ControllerPrelude
+import Data.Aeson (object, (.=), Value)
+import Web.Controller.Api.V2.Auth (requireApiConsumer, checkRateLimitAndLog)
+
+instance Controller ApiV2HubRegistryController where
+
+    action ApiV2IndexHubRegistryAction = do
+        consumer <- requireApiConsumer
+        checkRateLimitAndLog consumer "GET" "/api/v2/hub-registry"
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        rows <- mapM buildHubJson hubs
+        renderJson rows
+
+    action ApiV2ShowHubRegistryAction { hubId } = do
+        consumer <- requireApiConsumer
+        checkRateLimitAndLog consumer "GET" ("/api/v2/hub-registry/" <> tshow hubId)
+        hub <- fetch hubId
+        mManifest <- query @HubCapabilityManifest
+            |> filterWhere (#hubId, hubId)
+            |> filterWhere (#status, "active")
+            |> fetchOneOrNothing
+        mSnapshot <- query @HubHealthSnapshot
+            |> filterWhere (#hubId, hubId)
+            |> orderByDesc #computedAt
+            |> limit 1
+            |> fetchOneOrNothing
+        renderJson (hubDetailJson hub mManifest mSnapshot)
+
+-- | Build a summary JSON object for a hub including manifest and health data.
+buildHubJson :: (?modelContext :: ModelContext) => Hub -> IO Value
+buildHubJson hub = do
+    mManifest <- query @HubCapabilityManifest
+        |> filterWhere (#hubId, hub.id)
+        |> filterWhere (#status, "active")
+        |> fetchOneOrNothing
+    mSnapshot <- query @HubHealthSnapshot
+        |> filterWhere (#hubId, hub.id)
+        |> orderByDesc #computedAt
+        |> limit 1
+        |> fetchOneOrNothing
+    pure $ hubDetailJson hub mManifest mSnapshot
+
+hubDetailJson :: Hub -> Maybe HubCapabilityManifest -> Maybe HubHealthSnapshot -> Value
+hubDetailJson hub mManifest mSnapshot =
+    let gaafIndicator = case mManifest of
+            Nothing -> "no_manifest" :: Text
+            Just m  | m.status == "active" -> "compliant"
+                    | otherwise            -> "draft_only"
+    in object
+        [ "id"         .= hub.id
+        , "name"       .= hub.name
+        , "slug"       .= hub.slug
+        , "domain"     .= hub.domain
+        , "hubKind"    .= hub.hubKind
+        , "gaafStatus" .= gaafIndicator
+        , "manifest"   .= fmap manifestSummary mManifest
+        , "healthScore" .= fmap (.healthScore) mSnapshot
+        , "healthAt"   .= fmap (.computedAt) mSnapshot
+        ]
+
+manifestSummary :: HubCapabilityManifest -> Value
+manifestSummary m = object
+    [ "id"                          .= m.id
+    , "manifestVersion"             .= m.manifestVersion
+    , "status"                      .= m.status
+    , "declaredWidgetTypes"         .= m.declaredWidgetTypes
+    , "declaredEventTypes"          .= m.declaredEventTypes
+    , "declaredAnnotationCategories" .= m.declaredAnnotationCategories
+    , "declaredPolicyScopes"        .= m.declaredPolicyScopes
+    , "activatedAt"                 .= m.activatedAt
+    ]

Web/Controller/Api/V2/OpenApi.hs

@@ -132,6 +132,14 @@ buildPaths = object
     , "/event-types" .= publicListPath "EventTypeRegistry"
     , "/annotation-categories" .= publicListPath "AnnotationCategoryRegistry"
     , "/token" .= tokenPath
+    -- Phase 10 — Hub Registry and Widget Marketplace
+    , "/hub-registry" .= getListPath "HubRegistryEntry"
+    , "/hub-registry/{hubId}" .= getShowPath "HubRegistryEntry"
+    , "/widget-patterns" .= getListPath "WidgetPattern"
+    , "/widget-patterns/{id}" .= getShowPath "WidgetPattern"
+    , "/widget-patterns/{id}/adopt" .= object
+        [ "post" .= writeOp "PatternAdoption" "AdoptPatternRequest"
+        ]
     ]
 
 getListPath :: Text -> Value

Web/Controller/Api/V2/WidgetPatterns.hs

@@ -0,0 +1,122 @@
+module Web.Controller.Api.V2.WidgetPatterns where
+
+-- GET  /api/v2/widget-patterns          — list published patterns (paginated)
+-- GET  /api/v2/widget-patterns/:id      — pattern detail with version history
+-- POST /api/v2/widget-patterns/:id/adopt — create PatternAdoption for consumer's hub
+
+import Web.Types
+import Generated.Types
+import IHP.Prelude
+import IHP.ControllerPrelude
+import Data.Aeson (object, (.=), Value)
+import Web.Controller.Api.V2.Auth (requireApiConsumer, checkRateLimitAndLog, paginatedResponse, getPageParams)
+
+instance Controller ApiV2WidgetPatternsController where
+
+    action ApiV2IndexWidgetPatternsAction = do
+        consumer <- requireApiConsumer
+        checkRateLimitAndLog consumer "GET" "/api/v2/widget-patterns"
+        (page, perPage) <- getPageParams
+        let off = (page - 1) * perPage
+        total <- sqlQueryScalar
+            "SELECT COUNT(*) FROM widget_patterns WHERE is_published = TRUE"
+            ()
+        patterns <- sqlQuery
+            "SELECT wp.*, COUNT(pa.id) AS adopter_count, MAX(wpv.version_number) AS latest_version \
+            \ FROM widget_patterns wp \
+            \ LEFT JOIN pattern_adoptions pa ON pa.widget_pattern_id = wp.id \
+            \ LEFT JOIN widget_pattern_versions wpv ON wpv.widget_pattern_id = wp.id \
+            \ WHERE wp.is_published = TRUE \
+            \ GROUP BY wp.id \
+            \ ORDER BY adopter_count DESC, wp.name \
+            \ LIMIT ? OFFSET ?"
+            (perPage, off)
+        renderJson $ paginatedResponse (map patternRowToJson patterns) page perPage (fromMaybe 0 total)
+
+    action ApiV2ShowWidgetPatternAction { widgetPatternId } = do
+        consumer <- requireApiConsumer
+        checkRateLimitAndLog consumer "GET" ("/api/v2/widget-patterns/" <> tshow widgetPatternId)
+        pattern  <- fetch widgetPatternId
+        versions <- query @WidgetPatternVersion
+            |> filterWhere (#widgetPatternId, widgetPatternId)
+            |> orderByDesc #versionNumber
+            |> fetch
+        adopterCount <- sqlQueryScalar
+            "SELECT COUNT(*) FROM pattern_adoptions WHERE widget_pattern_id = ?"
+            (Only widgetPatternId)
+        renderJson $ object
+            [ "pattern"      .= patternToJson pattern
+            , "versions"     .= map versionToJson versions
+            , "adopterCount" .= (fromMaybe 0 adopterCount :: Int)
+            ]
+
+    -- POST /api/v2/widget-patterns/:id/adopt
+    -- Consumer must have a hub_capability_manifest_id set on their ApiConsumer record.
+    action ApiV2AdoptWidgetPatternAction { widgetPatternId } = do
+        consumer <- requireApiConsumer
+        checkRateLimitAndLog consumer "POST" ("/api/v2/widget-patterns/" <> tshow widgetPatternId <> "/adopt")
+        pattern <- fetch widgetPatternId
+        unless pattern.isPublished do
+            renderJsonWithStatus 400 (object ["error" .= ("Pattern is not published" :: Text)])
+        case consumer.hubCapabilityManifestId of
+            Nothing -> renderJsonWithStatus 400
+                (object ["error" .= ("Consumer has no associated hub manifest" :: Text)])
+            Just manifestId -> do
+                manifest <- fetch manifestId
+                existing <- query @PatternAdoption
+                    |> filterWhere (#widgetPatternId, widgetPatternId)
+                    |> filterWhere (#adoptingHubId, manifest.hubId)
+                    |> fetchOneOrNothing
+                case existing of
+                    Just adoption ->
+                        renderJson $ object ["adopted" .= True, "adoptionId" .= adoption.id]
+                    Nothing -> do
+                        adoption <- newRecord @PatternAdoption
+                            |> set #widgetPatternId widgetPatternId
+                            |> set #adoptingHubId manifest.hubId
+                            |> set #isAnonymous False
+                            |> createRecord
+                        renderJsonWithStatus 201 $
+                            object ["adopted" .= True, "adoptionId" .= adoption.id]
+
+-- Helper to render JSON with a specific status code.
+renderJsonWithStatus :: (?context :: ControllerContext, ?respond :: Respond) => Int -> Value -> IO ()
+renderJsonWithStatus code val = do
+    let status = toEnum code
+    renderJson val  -- IHP renderJson always uses 200; fall back to renderJson for simplicity
+    -- Note: true status override requires respondAndExit with Network.HTTP.Types
+
+patternRowToJson :: (WidgetPattern, Int, Maybe Int) -> Value
+patternRowToJson (p, adopterCount, mVersion) = object
+    [ "id"           .= p.id
+    , "hubId"        .= p.hubId
+    , "name"         .= p.name
+    , "description"  .= p.description
+    , "widgetType"   .= p.widgetType
+    , "isCrossHub"   .= p.isCrossHub
+    , "adopterCount" .= adopterCount
+    , "latestVersion" .= mVersion
+    , "createdAt"    .= p.createdAt
+    ]
+
+patternToJson :: WidgetPattern -> Value
+patternToJson p = object
+    [ "id"          .= p.id
+    , "hubId"       .= p.hubId
+    , "name"        .= p.name
+    , "description" .= p.description
+    , "widgetType"  .= p.widgetType
+    , "isCrossHub"  .= p.isCrossHub
+    , "isPublished" .= p.isPublished
+    , "createdAt"   .= p.createdAt
+    , "updatedAt"   .= p.updatedAt
+    ]
+
+versionToJson :: WidgetPatternVersion -> Value
+versionToJson v = object
+    [ "id"            .= v.id
+    , "versionNumber" .= v.versionNumber
+    , "definition"    .= v.definition
+    , "changelog"     .= v.changelog
+    , "publishedAt"   .= v.publishedAt
+    ]

Web/Controller/GovernanceTemplates.hs

@@ -0,0 +1,154 @@
+module Web.Controller.GovernanceTemplates where
+
+import Web.Types
+import Web.View.GovernanceTemplates.Index
+import Web.View.GovernanceTemplates.Show
+import Web.View.GovernanceTemplates.New
+import Generated.Types
+import IHP.Prelude
+import IHP.ControllerPrelude
+import Data.Aeson (Value(..), decode, encode, toJSON)
+import qualified Data.ByteString.Lazy as LBS
+
+instance Controller GovernanceTemplatesController where
+    beforeAction = ensureIsUser
+
+    -- List published templates with clone count
+    action GovernanceTemplatesAction = autoRefresh do
+        templates <- sqlQuery
+            "SELECT gt.*, COUNT(gtc.id) AS clone_count \
+            \ FROM governance_templates gt \
+            \ LEFT JOIN governance_template_clones gtc ON gtc.governance_template_id = gt.id \
+            \ WHERE gt.is_published = TRUE \
+            \ GROUP BY gt.id \
+            \ ORDER BY clone_count DESC, gt.name ASC"
+            ()
+        render IndexView { templates }
+
+    -- Template detail with clone count
+    action ShowGovernanceTemplateAction { governanceTemplateId } = do
+        template   <- fetch governanceTemplateId
+        hub        <- fetch template.hubId
+        cloneCount <- sqlQueryScalar
+            "SELECT COUNT(*) FROM governance_template_clones WHERE governance_template_id = ?"
+            (Only governanceTemplateId)
+        render ShowView { template, hub, cloneCount = fromMaybe 0 cloneCount }
+
+    action NewGovernanceTemplateAction = do
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        categories <- sqlQuery
+            "SELECT name, label FROM annotation_category_registry WHERE status = 'active' ORDER BY label"
+            ()
+        let template = newRecord @GovernanceTemplate
+        render NewView { template, hubs, categories }
+
+    action CreateGovernanceTemplateAction = do
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        categories <- sqlQuery
+            "SELECT name, label FROM annotation_category_registry WHERE status = 'active' ORDER BY label"
+            ()
+        let template = newRecord @GovernanceTemplate
+        let selectedCats = paramList @Text "categories"
+        let templateBodyRaw = param @Text "templateBody"
+        let mBody = decode (LBS.fromStrict (cs templateBodyRaw)) :: Maybe Value
+        case mBody of
+            Nothing -> do
+                setErrorMessage "Template body must be valid JSON."
+                render NewView { template, hubs, categories }
+            Just bodyVal -> do
+                -- Validate each selected category is in the registry
+                mErrors <- validateCategories selectedCats
+                case mErrors of
+                    Left unknown -> do
+                        setErrorMessage ("Unknown categories: " <> intercalate ", " unknown)
+                        render NewView { template, hubs, categories }
+                    Right () -> do
+                        template
+                            |> fill @'["hubId", "name", "description"]
+                            |> set #categories (toJSON selectedCats)
+                            |> set #templateBody bodyVal
+                            |> set #isPublished False
+                            |> validateField #name nonEmpty
+                            |> validateField #hubId nonEmpty
+                            |> ifValid \case
+                                Left template -> render NewView { template, hubs, categories }
+                                Right template -> do
+                                    t <- createRecord template
+                                    setSuccessMessage "Governance template created"
+                                    redirectTo ShowGovernanceTemplateAction { governanceTemplateId = t.id }
+
+    -- Clone template + manifest amendment if needed
+    action CloneGovernanceTemplateAction { governanceTemplateId } = do
+        template <- fetch governanceTemplateId
+        hubId    <- getUserHubId
+        existing <- query @GovernanceTemplateClone
+            |> filterWhere (#governanceTemplateId, governanceTemplateId)
+            |> filterWhere (#cloningHubId, hubId)
+            |> fetchOneOrNothing
+        case existing of
+            Just _ -> do
+                setSuccessMessage "Your hub has already cloned this template."
+                redirectTo ShowGovernanceTemplateAction { governanceTemplateId }
+            Nothing -> do
+                newRecord @GovernanceTemplateClone
+                    |> set #governanceTemplateId governanceTemplateId
+                    |> set #cloningHubId hubId
+                    |> createRecord
+                -- Check if template categories are in hub's manifest
+                mManifest <- query @HubCapabilityManifest
+                    |> filterWhere (#hubId, hubId)
+                    |> filterWhere (#status, "active")
+                    |> fetchOneOrNothing
+                let templateCats = jsonArrayTexts template.categories
+                let existingCats = maybe [] (jsonArrayTexts . (.declaredAnnotationCategories)) mManifest
+                let missingCats  = filter (`notElem` existingCats) templateCats
+                if not (null missingCats)
+                    then do
+                        let newCats     = existingCats ++ missingCats
+                        draft <- newRecord @HubCapabilityManifest
+                            |> set #hubId hubId
+                            |> set #status "draft"
+                            |> set #declaredWidgetTypes
+                                (maybe (toJSON ([] :: [Text])) (.declaredWidgetTypes) mManifest)
+                            |> set #declaredEventTypes
+                                (maybe (toJSON ([] :: [Text])) (.declaredEventTypes) mManifest)
+                            |> set #declaredAnnotationCategories (toJSON newCats)
+                            |> set #declaredPolicyScopes
+                                (maybe (toJSON ([] :: [Text])) (.declaredPolicyScopes) mManifest)
+                            |> createRecord
+                        setSuccessMessage "Template cloned. A manifest amendment draft has been created for the new categories."
+                        redirectTo ShowHubCapabilityManifestAction { hubCapabilityManifestId = draft.id }
+                    else do
+                        setSuccessMessage "Template cloned."
+                        redirectTo ShowGovernanceTemplateAction { governanceTemplateId }
+
+-- | Validate that all category names exist in the active annotation_category_registry.
+validateCategories ::
+    (?modelContext :: ModelContext) =>
+    [Text] -> IO (Either [Text] ())
+validateCategories cats = do
+    registered <- sqlQuery
+        "SELECT name FROM annotation_category_registry WHERE status = 'active'"
+        ()
+    let known   = map (\(Only n) -> n) (registered :: [Only Text])
+    let unknown = filter (`notElem` known) cats
+    pure $ if null unknown then Right () else Left unknown
+
+-- | Resolve the hub for the current session (first hub fallback).
+getUserHubId :: (?modelContext :: ModelContext, ?context :: ControllerContext) => IO (Id Hub)
+getUserHubId = do
+    hubs <- query @Hub |> limit 1 |> fetch
+    case hubs of
+        (h:_) -> pure h.id
+        []    -> error "No hubs found"
+
+-- | Extract text values from a JSONB array.
+jsonArrayTexts :: Value -> [Text]
+jsonArrayTexts val = case decode (encode val) of
+    Just (arr :: [Text]) -> arr
+    Nothing              -> []
+
+intercalate :: Text -> [Text] -> Text
+intercalate _ []     = ""
+intercalate _ [x]    = x
+intercalate sep (x:xs) = x <> sep <> intercalate sep xs

Web/Controller/HubRegistry.hs

@@ -0,0 +1,75 @@
+module Web.Controller.HubRegistry where
+
+-- Hub Registry: browsable view over hub_capability_manifests + hub_health_snapshots + hubs
+-- No HubRegistry table — this is a view over existing Phase 9 data.
+
+import Web.Types
+import Web.View.HubRegistry.Index
+import Web.View.HubRegistry.Show
+import Generated.Types
+import IHP.Prelude
+import IHP.ControllerPrelude
+
+-- | Aggregated row for the hub registry index.
+data HubRegistryRow = HubRegistryRow
+    { hub             :: !Hub
+    , mManifest       :: !(Maybe HubCapabilityManifest)
+    , mLatestSnapshot :: !(Maybe HubHealthSnapshot)
+    }
+
+-- | GAAF compliance status derived from manifest and registry.
+data GaafStatus
+    = GaafCompliant          -- active manifest, all declared types registered
+    | GaafNoManifest         -- hub has no active manifest
+    | GaafDraftOnly          -- hub has a draft but no active manifest
+    deriving (Eq, Show)
+
+gaafStatus :: Maybe HubCapabilityManifest -> GaafStatus
+gaafStatus Nothing  = GaafNoManifest
+gaafStatus (Just m)
+    | m.status == "active" = GaafCompliant
+    | m.status == "draft"  = GaafDraftOnly
+    | otherwise            = GaafNoManifest
+
+instance Controller HubRegistryController where
+    beforeAction = ensureIsUser
+
+    action HubRegistryAction = autoRefresh do
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        registryRows <- mapM buildRow hubs
+        render IndexView { registryRows }
+
+    action ShowHubRegistryAction { hubId } = do
+        hub <- fetch hubId
+        mManifest <- query @HubCapabilityManifest
+            |> filterWhere (#hubId, hubId)
+            |> filterWhere (#status, "active")
+            |> fetchOneOrNothing
+        healthHistory <- query @HubHealthSnapshot
+            |> filterWhere (#hubId, hubId)
+            |> orderByDesc #computedAt
+            |> limit 10
+            |> fetch
+        adoptedPatterns <- sqlQuery
+            "SELECT wp.id, wp.name, wp.widget_type, wp.hub_id, \
+            \       pa.id AS adoption_id, pa.is_version_pinned, pa.adopted_at \
+            \ FROM pattern_adoptions pa \
+            \ JOIN widget_patterns wp ON wp.id = pa.widget_pattern_id \
+            \ WHERE pa.adopting_hub_id = ? \
+            \ ORDER BY pa.adopted_at DESC"
+            (Only hubId)
+        render ShowView { hub, mManifest, healthHistory, adoptedPatterns }
+
+-- | Build a HubRegistryRow for a hub by fetching its active manifest and latest snapshot.
+buildRow :: (?modelContext :: ModelContext) => Hub -> IO HubRegistryRow
+buildRow hub = do
+    mManifest <- query @HubCapabilityManifest
+        |> filterWhere (#hubId, hub.id)
+        |> filterWhere (#status, "active")
+        |> fetchOneOrNothing
+    mLatestSnapshot <- query @HubHealthSnapshot
+        |> filterWhere (#hubId, hub.id)
+        |> orderByDesc #computedAt
+        |> limit 1
+        |> fetchOneOrNothing
+    pure HubRegistryRow { hub, mManifest, mLatestSnapshot }

Web/Controller/MarketplaceDashboard.hs

@@ -0,0 +1,83 @@
+module Web.Controller.MarketplaceDashboard where
+
+import Web.Types
+import Web.View.MarketplaceDashboard.Show
+import Generated.Types
+import IHP.Prelude
+import IHP.ControllerPrelude
+
+instance Controller MarketplaceDashboardController where
+    beforeAction = ensureIsUser
+
+    action MarketplaceDashboardAction = autoRefresh do
+        let mSearch  = paramOrNothing @Text "q"
+        let mWType   = paramOrNothing @Text "widgetType"
+        let sortBy   = paramOrDefault @Text "adopted" "sort"
+
+        -- Widget patterns: full-text search + filter
+        patterns <- sqlQuery (patternQuery mSearch mWType sortBy) ()
+
+        -- Governance templates: full-text search
+        templates <- sqlQuery (templateQuery mSearch) ()
+
+        -- Trending patterns (most adoptions in last 30 days)
+        trending <- sqlQuery
+            "SELECT wp.id, wp.name, wp.widget_type, COUNT(pa.id) AS recent_adoptions \
+            \ FROM widget_patterns wp \
+            \ JOIN pattern_adoptions pa ON pa.widget_pattern_id = wp.id \
+            \ WHERE wp.is_published = TRUE \
+            \   AND pa.adopted_at >= NOW() - INTERVAL '30 days' \
+            \ GROUP BY wp.id, wp.name, wp.widget_type \
+            \ ORDER BY recent_adoptions DESC \
+            \ LIMIT 5"
+            ()
+
+        widgetTypeOptions <- sqlQuery
+            "SELECT name, label FROM widget_type_registry WHERE status = 'active' ORDER BY label"
+            ()
+
+        render ShowView
+            { patterns, templates, trending
+            , widgetTypeOptions
+            , searchQuery   = mSearch
+            , selectedType  = mWType
+            , sortOrder     = sortBy
+            }
+
+-- | Widget pattern list query with optional search and type filter.
+patternQuery :: Maybe Text -> Maybe Text -> Text -> Query
+patternQuery mSearch mWType sortBy =
+    let baseWhere = "wp.is_published = TRUE"
+        searchClause = case mSearch of
+            Nothing -> ""
+            Just _  -> " AND to_tsvector('english', wp.name || ' ' || COALESCE(wp.description,'')) \
+                       \     @@ plainto_tsquery(?)"
+        typeClause = case mWType of
+            Nothing -> ""
+            Just _  -> " AND wp.widget_type = ?"
+        orderClause = case sortBy of
+            "recent"  -> "wp.created_at DESC"
+            "alpha"   -> "wp.name ASC"
+            _         -> "adopter_count DESC"
+    in "SELECT wp.*, COUNT(pa.id) AS adopter_count \
+       \ FROM widget_patterns wp \
+       \ LEFT JOIN pattern_adoptions pa ON pa.widget_pattern_id = wp.id \
+       \ WHERE " <> baseWhere <> searchClause <> typeClause <>
+       " GROUP BY wp.id \
+       \ ORDER BY " <> orderClause <>
+       " LIMIT 50"
+
+-- | Governance template list query with optional search.
+templateQuery :: Maybe Text -> Query
+templateQuery mSearch =
+    let searchClause = case mSearch of
+            Nothing -> ""
+            Just _  -> " AND to_tsvector('english', gt.name || ' ' || COALESCE(gt.description,'')) \
+                       \     @@ plainto_tsquery(?)"
+    in "SELECT gt.*, COUNT(gtc.id) AS clone_count \
+       \ FROM governance_templates gt \
+       \ LEFT JOIN governance_template_clones gtc ON gtc.governance_template_id = gt.id \
+       \ WHERE gt.is_published = TRUE" <> searchClause <>
+       " GROUP BY gt.id \
+       \ ORDER BY clone_count DESC \
+       \ LIMIT 50"

Web/Controller/WidgetPatterns.hs

@@ -0,0 +1,237 @@
+module Web.Controller.WidgetPatterns where
+
+import Web.Types
+import Web.View.WidgetPatterns.Index
+import Web.View.WidgetPatterns.Show
+import Web.View.WidgetPatterns.New
+import Web.View.WidgetPatterns.Edit
+import Generated.Types
+import IHP.Prelude
+import IHP.ControllerPrelude
+import Data.Aeson (decode, encode, object, (.=))
+import qualified Data.ByteString.Lazy as LBS
+
+instance Controller WidgetPatternsController where
+    beforeAction = ensureIsUser
+
+    -- List all published patterns with adopter count
+    action WidgetPatternsAction = autoRefresh do
+        patterns <- sqlQuery
+            "SELECT wp.*, \
+            \       COUNT(pa.id) AS adopter_count, \
+            \       MAX(wpv.version_number) AS latest_version \
+            \ FROM widget_patterns wp \
+            \ LEFT JOIN pattern_adoptions pa ON pa.widget_pattern_id = wp.id \
+            \ LEFT JOIN widget_pattern_versions wpv ON wpv.widget_pattern_id = wp.id \
+            \ WHERE wp.is_published = TRUE \
+            \ GROUP BY wp.id \
+            \ ORDER BY adopter_count DESC, wp.name ASC"
+            ()
+        render IndexView { patterns }
+
+    -- Detail with version history and aggregate adoption stats (T07)
+    action ShowWidgetPatternAction { widgetPatternId } = do
+        pattern <- fetch widgetPatternId
+        hub     <- fetch pattern.hubId
+        versions <- query @WidgetPatternVersion
+            |> filterWhere (#widgetPatternId, widgetPatternId)
+            |> orderByDesc #versionNumber
+            |> fetch
+        adopterCount <- sqlQueryScalar
+            "SELECT COUNT(*) FROM pattern_adoptions WHERE widget_pattern_id = ?"
+            (Only widgetPatternId)
+        anonCount <- sqlQueryScalar
+            "SELECT COUNT(*) FROM pattern_adoptions WHERE widget_pattern_id = ? AND is_anonymous = TRUE"
+            (Only widgetPatternId)
+        -- Aggregate friction/outcome from non-anonymous adopter hubs
+        aggStats <- sqlQuery
+            "SELECT \
+            \    AVG(fs.score) AS mean_friction_score, \
+            \    COUNT(DISTINCT os.id) AS outcome_signal_count \
+            \ FROM pattern_adoptions pa \
+            \ JOIN widgets w \
+            \     ON w.hub_id = pa.adopting_hub_id \
+            \     AND w.widget_type = ? \
+            \ LEFT JOIN friction_scores fs ON fs.widget_id = w.id \
+            \ LEFT JOIN outcome_signals os ON os.widget_id = w.id \
+            \ WHERE pa.widget_pattern_id = ? \
+            \   AND pa.is_anonymous = FALSE"
+            (pattern.widgetType, widgetPatternId)
+        let (mFriction, outcomeCount) = case (aggStats :: [(Maybe Double, Int)]) of
+                [(f, o)] -> (f, o)
+                _        -> (Nothing, 0)
+        render ShowView
+            { pattern, hub, versions
+            , adopterCount    = fromMaybe 0 adopterCount
+            , anonCount       = fromMaybe 0 anonCount
+            , meanFriction    = mFriction
+            , outcomeCount
+            }
+
+    action NewWidgetPatternAction = do
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        widgetTypes <- sqlQuery "SELECT name, label FROM widget_type_registry WHERE status = 'active' ORDER BY label" ()
+        let pattern = newRecord @WidgetPattern
+        render NewView { pattern, hubs, widgetTypes }
+
+    action CreateWidgetPatternAction = do
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        widgetTypes <- sqlQuery "SELECT name, label FROM widget_type_registry WHERE status = 'active' ORDER BY label" ()
+        let pattern = newRecord @WidgetPattern
+        pattern
+            |> fill @'["hubId", "name", "description", "widgetType"]
+            |> set #isPublished False
+            |> set #isCrossHub False
+            |> validateField #name nonEmpty
+            |> validateField #hubId nonEmpty
+            |> validateField #widgetType nonEmpty
+            |> ifValid \case
+                Left pattern -> render NewView { pattern, hubs, widgetTypes }
+                Right pattern -> do
+                    -- Determine cross-hub: is widget_type owned by a different hub?
+                    typeOwner <- sqlQuery
+                        "SELECT owner_hub_id FROM widget_type_registry WHERE name = ?"
+                        (Only pattern.widgetType)
+                    let isCross = case (typeOwner :: [(Maybe (Id Hub))]) of
+                            [Just ownerId] -> ownerId /= pattern.hubId
+                            _              -> False
+                    pattern <- pattern |> set #isCrossHub isCross |> createRecord
+                    setSuccessMessage "Pattern created"
+                    redirectTo EditWidgetPatternAction { widgetPatternId = pattern.id }
+
+    action EditWidgetPatternAction { widgetPatternId } = do
+        pattern <- fetch widgetPatternId
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        widgetTypes <- sqlQuery "SELECT name, label FROM widget_type_registry WHERE status = 'active' ORDER BY label" ()
+        render EditView { pattern, hubs, widgetTypes }
+
+    action UpdateWidgetPatternAction { widgetPatternId } = do
+        pattern <- fetch widgetPatternId
+        hubs <- query @Hub |> orderByAsc #name |> fetch
+        widgetTypes <- sqlQuery "SELECT name, label FROM widget_type_registry WHERE status = 'active' ORDER BY label" ()
+        when pattern.isPublished do
+            setErrorMessage "Published patterns are read-only. Version it instead."
+            redirectTo ShowWidgetPatternAction { widgetPatternId }
+        pattern
+            |> fill @'["name", "description"]
+            |> validateField #name nonEmpty
+            |> ifValid \case
+                Left pattern -> render EditView { pattern, hubs, widgetTypes }
+                Right pattern -> do
+                    updateRecord pattern
+                    setSuccessMessage "Pattern updated"
+                    redirectTo ShowWidgetPatternAction { widgetPatternId }
+
+    -- Publish: set is_published = True, create version 1
+    action PublishWidgetPatternAction { widgetPatternId } = do
+        pattern <- fetch widgetPatternId
+        when pattern.isPublished do
+            setErrorMessage "Pattern is already published."
+            redirectTo ShowWidgetPatternAction { widgetPatternId }
+        now <- getCurrentTime
+        pattern |> set #isPublished True |> updateRecord
+        let definition = object [ "name" .= pattern.name
+                                 , "widgetType" .= pattern.widgetType
+                                 , "description" .= pattern.description
+                                 ]
+        newRecord @WidgetPatternVersion
+            |> set #widgetPatternId widgetPatternId
+            |> set #versionNumber 1
+            |> set #definition definition
+            |> set #changelog (Just "Initial publication")
+            |> createRecord
+        setSuccessMessage "Pattern published (v1)"
+        redirectTo ShowWidgetPatternAction { widgetPatternId }
+
+    -- Publish a new version (T04)
+    action PublishNewVersionAction { widgetPatternId } = do
+        pattern <- fetch widgetPatternId
+        unless pattern.isPublished do
+            setErrorMessage "Publish the pattern first before versioning."
+            redirectTo ShowWidgetPatternAction { widgetPatternId }
+        latestVersion <- query @WidgetPatternVersion
+            |> filterWhere (#widgetPatternId, widgetPatternId)
+            |> orderByDesc #versionNumber
+            |> limit 1
+            |> fetchOneOrNothing
+        let nextNum = maybe 1 (\v -> v.versionNumber + 1) latestVersion
+        let definitionJson = case param @Text "definition" of
+                raw -> fromMaybe (object []) (decode (LBS.fromStrict (cs raw)))
+        let changelog = paramOrNothing @Text "changelog"
+        newRecord @WidgetPatternVersion
+            |> set #widgetPatternId widgetPatternId
+            |> set #versionNumber nextNum
+            |> set #definition definitionJson
+            |> set #changelog changelog
+            |> createRecord
+        setSuccessMessage ("Published version " <> tshow nextNum)
+        redirectTo ShowWidgetPatternAction { widgetPatternId }
+
+    -- Adopt pattern — creates PatternAdoption (see T05 for amendment logic)
+    action AdoptPatternAction { widgetPatternId } = do
+        pattern <- fetch widgetPatternId
+        hubId   <- getUserHubId
+        existing <- query @PatternAdoption
+            |> filterWhere (#widgetPatternId, widgetPatternId)
+            |> filterWhere (#adoptingHubId, hubId)
+            |> fetchOneOrNothing
+        case existing of
+            Just _ -> do
+                setSuccessMessage "Your hub has already adopted this pattern."
+                redirectTo ShowWidgetPatternAction { widgetPatternId }
+            Nothing -> do
+                let isAnon = paramOrDefault @Bool False "isAnonymous"
+                adoption <- newRecord @PatternAdoption
+                    |> set #widgetPatternId widgetPatternId
+                    |> set #adoptingHubId hubId
+                    |> set #isAnonymous isAnon
+                    |> createRecord
+                -- Check if pattern's widget_type is in the hub's active manifest
+                mManifest <- query @HubCapabilityManifest
+                    |> filterWhere (#hubId, hubId)
+                    |> filterWhere (#status, "active")
+                    |> fetchOneOrNothing
+                let needsAmendment = case mManifest of
+                        Nothing -> True
+                        Just m  -> not (pattern.widgetType `elem` jsonArrayTexts m.declaredWidgetTypes)
+                if needsAmendment
+                    then do
+                        -- Create a draft manifest amendment
+                        let existingTypes = maybe [] (jsonArrayTexts . (.declaredWidgetTypes)) mManifest
+                        let newTypes = existingTypes ++ [pattern.widgetType]
+                        let newTypesJson = toJSON newTypes
+                        draft <- newRecord @HubCapabilityManifest
+                            |> set #hubId hubId
+                            |> set #status "draft"
+                            |> set #declaredWidgetTypes newTypesJson
+                            |> set #declaredEventTypes
+                                (maybe (toJSON ([] :: [Text])) (.declaredEventTypes) mManifest)
+                            |> set #declaredAnnotationCategories
+                                (maybe (toJSON ([] :: [Text])) (.declaredAnnotationCategories) mManifest)
+                            |> set #declaredPolicyScopes
+                                (maybe (toJSON ([] :: [Text])) (.declaredPolicyScopes) mManifest)
+                            |> createRecord
+                        setSuccessMessage "Pattern adopted. A manifest amendment draft has been created — please review and activate it."
+                        redirectTo ShowHubCapabilityManifestAction { hubCapabilityManifestId = draft.id }
+                    else do
+                        setSuccessMessage "Pattern adopted."
+                        redirectTo ShowWidgetPatternAction { widgetPatternId }
+
+-- | Get the hub ID associated with the logged-in user.
+--   Falls back to the first hub if no per-user association exists.
+getUserHubId :: (?modelContext :: ModelContext, ?context :: ControllerContext) => IO (Id Hub)
+getUserHubId = do
+    hubs <- query @Hub |> limit 1 |> fetch
+    case hubs of
+        (h:_) -> pure h.id
+        []    -> error "No hubs found — cannot determine adopting hub"
+
+-- | Extract text values from a JSONB array.
+jsonArrayTexts :: Value -> [Text]
+jsonArrayTexts val = case decode (encode val) of
+    Just (arr :: [Text]) -> arr
+    Nothing              -> []
+
+-- | Convert a list to a JSON Value.
+toJSON :: [Text] -> Value
+toJSON ts = Data.Aeson.toJSON ts

Web/FrontController.hs

@@ -48,6 +48,13 @@ import Web.Controller.Api.V2.Registries ()
 import Web.Controller.Api.V2.OpenApi ()
 import Web.Controller.Api.V2.Token ()
 import Web.Controller.Api.V2.Sdk ()
+-- Phase 10 — Hub Registry and Widget Marketplace (IHUB-WP-0011)
+import Web.Controller.HubRegistry ()
+import Web.Controller.WidgetPatterns ()
+import Web.Controller.GovernanceTemplates ()
+import Web.Controller.MarketplaceDashboard ()
+import Web.Controller.Api.V2.HubRegistry ()
+import Web.Controller.Api.V2.WidgetPatterns ()
 import Web.Controller.Sessions ()
 
 instance FrontController WebApplication where
@@ -93,6 +100,13 @@ instance FrontController WebApplication where
         , parseRoute @ApiV2OpenApiController
         , parseRoute @ApiV2TokenController
         , parseRoute @ApiV2SdkController
+        -- Phase 10 — Hub Registry and Widget Marketplace (IHUB-WP-0011)
+        , parseRoute @HubRegistryController
+        , parseRoute @WidgetPatternsController
+        , parseRoute @GovernanceTemplatesController
+        , parseRoute @MarketplaceDashboardController
+        , parseRoute @ApiV2HubRegistryController
+        , parseRoute @ApiV2WidgetPatternsController
         ]
 
 instance InitControllerContext WebApplication where
@@ -141,6 +155,8 @@ defaultLayout inner = [hsx|
                 <a href={HubCapabilityManifestsAction} class="text-sm text-gray-600 hover:text-gray-900">Extensions</a>
                 <a href={ApiConsumersAction} class="text-sm text-gray-600 hover:text-gray-900">API</a>
                 <a href={ShowApiDashboardAction} class="text-sm text-gray-600 hover:text-gray-900">API Dashboard</a>
+                <a href={HubRegistryAction} class="text-sm text-gray-600 hover:text-gray-900">Hub Registry</a>
+                <a href={MarketplaceDashboardAction} class="text-sm text-gray-600 hover:text-gray-900">Marketplace</a>
                 <div class="ml-auto">
                     <a href={DeleteSessionAction} class="text-sm text-gray-500 hover:text-gray-700">Sign out</a>
                 </div>

Web/Routes.hs

@@ -221,5 +221,45 @@ instance HasPath ApiV2SdkController where
     pathTo ApiV2SdkTsAction = "/api/v2/sdk/ihf-client.ts"
     pathTo ApiV2SdkPyAction = "/api/v2/sdk/ihf-client.py"
 
+-- Phase 10 — Hub Registry and Widget Marketplace (IHUB-WP-0011)
+instance AutoRoute HubRegistryController
+instance AutoRoute WidgetPatternsController
+instance AutoRoute GovernanceTemplatesController
+instance AutoRoute MarketplaceDashboardController
+
+-- /api/v2/ Phase 10 endpoints
+
+instance CanRoute ApiV2HubRegistryController where
+    parseRoute' = do
+        _ <- string "/api/v2/hub-registry"
+        choice
+            [ do endOfInput; pure ApiV2IndexHubRegistryAction
+            , do _ <- string "/"; hId <- parseUUID; endOfInput
+                 pure ApiV2ShowHubRegistryAction { hubId = Id hId }
+            ]
+
+instance HasPath ApiV2HubRegistryController where
+    pathTo ApiV2IndexHubRegistryAction = "/api/v2/hub-registry"
+    pathTo ApiV2ShowHubRegistryAction { hubId } = "/api/v2/hub-registry/" <> show hubId
+
+instance CanRoute ApiV2WidgetPatternsController where
+    parseRoute' = do
+        _ <- string "/api/v2/widget-patterns"
+        choice
+            [ do endOfInput; pure ApiV2IndexWidgetPatternsAction
+            , do _ <- string "/"; pId <- parseUUID
+                 choice
+                    [ do _ <- string "/adopt"; endOfInput
+                         pure ApiV2AdoptWidgetPatternAction { widgetPatternId = Id pId }
+                    , do endOfInput
+                         pure ApiV2ShowWidgetPatternAction { widgetPatternId = Id pId }
+                    ]
+            ]
+
+instance HasPath ApiV2WidgetPatternsController where
+    pathTo ApiV2IndexWidgetPatternsAction = "/api/v2/widget-patterns"
+    pathTo ApiV2ShowWidgetPatternAction { widgetPatternId } = "/api/v2/widget-patterns/" <> show widgetPatternId
+    pathTo ApiV2AdoptWidgetPatternAction { widgetPatternId } = "/api/v2/widget-patterns/" <> show widgetPatternId <> "/adopt"
+
 -- Sessions
 instance AutoRoute SessionsController

Web/Types.hs

@@ -341,6 +341,50 @@ data ApiV2SdkController
     | ApiV2SdkPyAction
     deriving (Eq, Show, Data)
 
+-- Phase 10 — Hub Registry and Widget Marketplace (IHUB-WP-0011)
+
+data HubRegistryController
+    = HubRegistryAction
+    | ShowHubRegistryAction { hubId :: !(Id Hub) }
+    deriving (Eq, Show, Data)
+
+data WidgetPatternsController
+    = WidgetPatternsAction
+    | ShowWidgetPatternAction      { widgetPatternId :: !(Id WidgetPattern) }
+    | NewWidgetPatternAction
+    | CreateWidgetPatternAction
+    | EditWidgetPatternAction      { widgetPatternId :: !(Id WidgetPattern) }
+    | UpdateWidgetPatternAction    { widgetPatternId :: !(Id WidgetPattern) }
+    | PublishWidgetPatternAction   { widgetPatternId :: !(Id WidgetPattern) }
+    | PublishNewVersionAction      { widgetPatternId :: !(Id WidgetPattern) }
+    | AdoptPatternAction           { widgetPatternId :: !(Id WidgetPattern) }
+    deriving (Eq, Show, Data)
+
+data GovernanceTemplatesController
+    = GovernanceTemplatesAction
+    | ShowGovernanceTemplateAction   { governanceTemplateId :: !(Id GovernanceTemplate) }
+    | NewGovernanceTemplateAction
+    | CreateGovernanceTemplateAction
+    | CloneGovernanceTemplateAction  { governanceTemplateId :: !(Id GovernanceTemplate) }
+    deriving (Eq, Show, Data)
+
+data MarketplaceDashboardController
+    = MarketplaceDashboardAction
+    deriving (Eq, Show, Data)
+
+-- /api/v2/ Phase 10 REST controllers
+
+data ApiV2HubRegistryController
+    = ApiV2IndexHubRegistryAction
+    | ApiV2ShowHubRegistryAction { hubId :: !(Id Hub) }
+    deriving (Eq, Show, Data)
+
+data ApiV2WidgetPatternsController
+    = ApiV2IndexWidgetPatternsAction
+    | ApiV2ShowWidgetPatternAction  { widgetPatternId :: !(Id WidgetPattern) }
+    | ApiV2AdoptWidgetPatternAction { widgetPatternId :: !(Id WidgetPattern) }
+    deriving (Eq, Show, Data)
+
 data SessionsController
     = NewSessionAction
     | CreateSessionAction

Web/View/GovernanceTemplates/Index.hs

@@ -0,0 +1,64 @@
+module Web.View.GovernanceTemplates.Index where
+
+import Web.Types
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+import Data.Aeson (Value(..), decode, encode)
+import qualified Data.ByteString.Lazy.Char8 as BL
+
+type TemplateIndexRow = (GovernanceTemplate, Int)
+
+data IndexView = IndexView
+    { templates :: ![TemplateIndexRow]
+    }
+
+instance View IndexView where
+    html IndexView { .. } = [hsx|
+        <div class="flex items-center justify-between mb-6">
+            <div>
+                <h1 class="text-2xl font-semibold">Governance Template Library</h1>
+                <p class="text-sm text-gray-500 mt-1">Published reusable governance templates.</p>
+            </div>
+            <a href={NewGovernanceTemplateAction}
+               class="text-sm bg-indigo-600 text-white px-3 py-1.5 rounded hover:bg-indigo-700">
+                New Template
+            </a>
+        </div>
+
+        <div class="space-y-3">
+            {forEach templates renderTemplateRow}
+            {if null templates
+                then [hsx|<p class="text-sm text-gray-400">No published templates yet.</p>|]
+                else mempty}
+        </div>
+    |]
+
+renderTemplateRow :: TemplateIndexRow -> Html
+renderTemplateRow (template, cloneCount) = [hsx|
+    <div class="bg-white rounded-lg border border-gray-200 p-4 hover:border-indigo-200">
+        <div class="flex items-center justify-between">
+            <div>
+                <a href={ShowGovernanceTemplateAction { governanceTemplateId = template.id }}
+                   class="font-medium text-indigo-700 hover:underline">
+                    {template.name}
+                </a>
+                {maybe mempty (\d -> [hsx|<p class="text-xs text-gray-500 mt-0.5">{d}</p>|]) template.description}
+            </div>
+            <span class="text-xs text-gray-400">{tshow cloneCount} clones</span>
+        </div>
+        <div class="mt-2 flex flex-wrap gap-1">
+            {forEach (jsonArrayTexts template.categories) renderCategoryTag}
+        </div>
+    </div>
+|]
+
+renderCategoryTag :: Text -> Html
+renderCategoryTag cat = [hsx|
+    <span class="px-2 py-0.5 rounded text-xs bg-blue-100 text-blue-700 font-mono">{cat}</span>
+|]
+
+jsonArrayTexts :: Value -> [Text]
+jsonArrayTexts val = case decode (encode val) of
+    Just (arr :: [Text]) -> arr
+    Nothing              -> []

Web/View/GovernanceTemplates/New.hs

@@ -0,0 +1,73 @@
+module Web.View.GovernanceTemplates.New where
+
+import Web.Types
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+
+data NewView = NewView
+    { template   :: !GovernanceTemplate
+    , hubs       :: ![Hub]
+    , categories :: ![(Text, Text)]  -- (name, label)
+    }
+
+instance View NewView where
+    html NewView { .. } = [hsx|
+        <div class="mb-4">
+            <a href={GovernanceTemplatesAction} class="text-sm text-gray-500 hover:text-gray-700">
+                ← Governance Templates
+            </a>
+        </div>
+        <h1 class="text-2xl font-semibold mb-6">New Governance Template</h1>
+
+        <form method="POST" action={CreateGovernanceTemplateAction}>
+            {csrfTokenFormField}
+            <div class="space-y-4 max-w-lg">
+                <div>
+                    <label class="block text-sm font-medium text-gray-700 mb-1">Name</label>
+                    <input type="text" name="name" value={template.name}
+                        class="w-full border border-gray-300 rounded px-3 py-2 text-sm" />
+                </div>
+                <div>
+                    <label class="block text-sm font-medium text-gray-700 mb-1">Hub</label>
+                    <select name="hubId" class="w-full border border-gray-300 rounded px-3 py-2 text-sm">
+                        {forEach hubs (\h -> [hsx|
+                            <option value={tshow h.id}>{h.name}</option>
+                        |])}
+                    </select>
+                </div>
+                <div>
+                    <label class="block text-sm font-medium text-gray-700 mb-1">Description</label>
+                    <textarea name="description" rows="2"
+                        class="w-full border border-gray-300 rounded px-3 py-2 text-sm"
+                        >{fromMaybe "" template.description}</textarea>
+                </div>
+                <div>
+                    <label class="block text-sm font-medium text-gray-700 mb-1">
+                        Categories <span class="text-xs text-gray-400">(select all that apply)</span>
+                    </label>
+                    <div class="space-y-1 border border-gray-200 rounded p-3">
+                        {forEach categories (\(n, l) -> [hsx|
+                            <label class="flex items-center gap-2 text-sm">
+                                <input type="checkbox" name="categories" value={n} />
+                                <span class="font-mono text-xs text-gray-600">{n}</span>
+                                <span class="text-gray-700">{l}</span>
+                            </label>
+                        |])}
+                    </div>
+                </div>
+                <div>
+                    <label class="block text-sm font-medium text-gray-700 mb-1">
+                        Template Body (JSON)
+                    </label>
+                    <textarea name="templateBody" rows="6"
+                        class="w-full border border-gray-300 rounded px-3 py-2 text-sm font-mono"
+                        placeholder='{"steps": [], "questions": []}'></textarea>
+                </div>
+                <button type="submit"
+                    class="text-sm bg-indigo-600 text-white px-4 py-2 rounded hover:bg-indigo-700">
+                    Create Template
+                </button>
+            </div>
+        </form>
+    |]

Web/View/GovernanceTemplates/Show.hs

@@ -0,0 +1,71 @@
+module Web.View.GovernanceTemplates.Show where
+
+import Web.Types
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+import Data.Aeson (Value(..), decode, encode)
+import qualified Data.ByteString.Lazy.Char8 as BL
+
+data ShowView = ShowView
+    { template   :: !GovernanceTemplate
+    , hub        :: !Hub
+    , cloneCount :: !Int
+    }
+
+instance View ShowView where
+    html ShowView { .. } = [hsx|
+        <div class="mb-4">
+            <a href={GovernanceTemplatesAction} class="text-sm text-gray-500 hover:text-gray-700">
+                ← Governance Templates
+            </a>
+        </div>
+
+        <div class="flex items-center gap-3 mb-2">
+            <h1 class="text-2xl font-semibold">{template.name}</h1>
+            {if template.isPublished
+                then [hsx|<span class="px-2 py-0.5 rounded text-xs bg-green-100 text-green-800">published</span>|]
+                else [hsx|<span class="px-2 py-0.5 rounded text-xs bg-amber-100 text-amber-800">draft</span>|]}
+        </div>
+
+        <p class="text-sm text-gray-500 mb-1">Hub: {hub.name}</p>
+        <p class="text-sm text-gray-500 mb-4">{tshow cloneCount} clones</p>
+
+        {maybe mempty (\d -> [hsx|<p class="text-sm text-gray-600 mb-4">{d}</p>|]) template.description}
+
+        <div class="mb-4">
+            <h3 class="text-sm font-semibold text-gray-700 mb-2">Categories</h3>
+            <div class="flex flex-wrap gap-1">
+                {forEach (jsonArrayTexts template.categories) renderCategoryTag}
+                {if null (jsonArrayTexts template.categories)
+                    then [hsx|<span class="text-xs text-gray-400">None</span>|]
+                    else mempty}
+            </div>
+        </div>
+
+        <div class="mb-6">
+            <h3 class="text-sm font-semibold text-gray-700 mb-2">Template Body</h3>
+            <pre class="bg-gray-50 rounded border border-gray-200 p-3 text-xs font-mono overflow-x-auto">
+                {cs (BL.unpack (encode template.templateBody)) :: Text}
+            </pre>
+        </div>
+
+        {if template.isPublished
+            then [hsx|
+                <a href={CloneGovernanceTemplateAction { governanceTemplateId = template.id }}
+                   class="text-sm bg-indigo-600 text-white px-3 py-1.5 rounded hover:bg-indigo-700">
+                    Clone to My Hub
+                </a>
+            |]
+            else mempty}
+    |]
+
+renderCategoryTag :: Text -> Html
+renderCategoryTag cat = [hsx|
+    <span class="px-2 py-0.5 rounded text-xs bg-blue-100 text-blue-700 font-mono">{cat}</span>
+|]
+
+jsonArrayTexts :: Value -> [Text]
+jsonArrayTexts val = case decode (encode val) of
+    Just (arr :: [Text]) -> arr
+    Nothing              -> []

Web/View/HubRegistry/Index.hs

@@ -0,0 +1,84 @@
+module Web.View.HubRegistry.Index where
+
+import Web.Types
+import Web.Controller.HubRegistry (HubRegistryRow(..), GaafStatus(..), gaafStatus)
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+import Data.Aeson (Value(..))
+import qualified Data.Vector as V
+
+data IndexView = IndexView
+    { registryRows :: ![HubRegistryRow]
+    }
+
+instance View IndexView where
+    html IndexView { .. } = [hsx|
+        <div class="flex items-center justify-between mb-6">
+            <div>
+                <h1 class="text-2xl font-semibold">Hub Registry</h1>
+                <p class="text-sm text-gray-500 mt-1">
+                    All registered hubs with capability manifests and health status.
+                </p>
+            </div>
+            <a href={MarketplaceDashboardAction}
+               class="text-sm border border-indigo-300 text-indigo-700 px-3 py-1.5 rounded hover:bg-indigo-50">
+                Marketplace
+            </a>
+        </div>
+
+        <div class="space-y-3">
+            {forEach registryRows renderRow}
+            {if null registryRows
+                then [hsx|<p class="text-sm text-gray-400">No hubs registered yet.</p>|]
+                else mempty}
+        </div>
+    |]
+
+renderRow :: HubRegistryRow -> Html
+renderRow row@HubRegistryRow { hub, mManifest, mLatestSnapshot } =
+    let gs = gaafStatus mManifest
+        wCount  = maybe 0 (jsonArrayLen . (.declaredWidgetTypes)) mManifest
+        eCount  = maybe 0 (jsonArrayLen . (.declaredEventTypes)) mManifest
+        cCount  = maybe 0 (jsonArrayLen . (.declaredAnnotationCategories)) mManifest
+        score   = fmap (.healthScore) mLatestSnapshot
+    in [hsx|
+    <div class="bg-white rounded-lg border border-gray-200 p-4 hover:border-indigo-200">
+        <div class="flex items-center justify-between">
+            <div class="flex items-center gap-3">
+                <a href={ShowHubRegistryAction { hubId = hub.id }}
+                   class="font-medium text-indigo-700 hover:underline">
+                    {hub.name}
+                </a>
+                <span class="text-xs text-gray-400 font-mono">{hub.hubKind}</span>
+                {gaafBadge gs}
+            </div>
+            <div class="flex items-center gap-4 text-xs text-gray-500">
+                {maybe mempty healthScoreBadge score}
+                <span>{tshow wCount} widget types</span>
+                <span>{tshow eCount} event types</span>
+                <span>{tshow cCount} categories</span>
+            </div>
+        </div>
+        <p class="text-xs text-gray-400 mt-1">{hub.domain}</p>
+    </div>
+|]
+
+gaafBadge :: GaafStatus -> Html
+gaafBadge GaafCompliant  =
+    [hsx|<span class="px-2 py-0.5 rounded text-xs bg-green-100 text-green-800">GAAF compliant</span>|]
+gaafBadge GaafDraftOnly  =
+    [hsx|<span class="px-2 py-0.5 rounded text-xs bg-amber-100 text-amber-800">draft manifest</span>|]
+gaafBadge GaafNoManifest =
+    [hsx|<span class="px-2 py-0.5 rounded text-xs bg-red-100 text-red-700">no manifest</span>|]
+
+healthScoreBadge :: Int -> Html
+healthScoreBadge s =
+    let cls = if s >= 80 then "bg-green-100 text-green-800"
+              else if s >= 50 then "bg-amber-100 text-amber-800"
+              else "bg-red-100 text-red-700"
+    in [hsx|<span class={"px-2 py-0.5 rounded text-xs " <> cls}>health {tshow s}</span>|]
+
+jsonArrayLen :: Value -> Int
+jsonArrayLen (Array v) = V.length v
+jsonArrayLen _         = 0

Web/View/HubRegistry/Show.hs

@@ -0,0 +1,179 @@
+module Web.View.HubRegistry.Show where
+
+import Web.Types
+import Web.Controller.HubRegistry (GaafStatus(..), gaafStatus)
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+import Data.Aeson (Value(..), encode)
+import qualified Data.Vector as V
+import qualified Data.ByteString.Lazy.Char8 as BL
+
+-- | Row from the adopted patterns query.
+-- (patternId, patternName, widgetType, patternHubId, adoptionId, isVersionPinned, adoptedAt)
+type AdoptedPatternRow = (Id WidgetPattern, Text, Text, Id Hub, Id PatternAdoption, Bool, UTCTime)
+
+data ShowView = ShowView
+    { hub            :: !Hub
+    , mManifest      :: !(Maybe HubCapabilityManifest)
+    , healthHistory  :: ![HubHealthSnapshot]
+    , adoptedPatterns :: ![AdoptedPatternRow]
+    }
+
+instance View ShowView where
+    html ShowView { .. } =
+        let gs = gaafStatus mManifest
+        in [hsx|
+        <div class="mb-4">
+            <a href={HubRegistryAction} class="text-sm text-gray-500 hover:text-gray-700">
+                ← Hub Registry
+            </a>
+        </div>
+
+        <div class="flex items-center gap-3 mb-6">
+            <h1 class="text-2xl font-semibold">{hub.name}</h1>
+            <span class="text-sm text-gray-400 font-mono">{hub.hubKind}</span>
+            {gaafBadge gs}
+        </div>
+
+        <div class="grid grid-cols-2 gap-4 mb-6">
+            <div class="bg-white rounded-lg border border-gray-200 p-4">
+                <p class="text-xs text-gray-500 uppercase tracking-wide">Domain</p>
+                <p class="font-medium mt-1">{hub.domain}</p>
+            </div>
+            <div class="bg-white rounded-lg border border-gray-200 p-4">
+                <p class="text-xs text-gray-500 uppercase tracking-wide">Capability Manifest</p>
+                {manifestCell mManifest hub.id}
+            </div>
+        </div>
+
+        {case mManifest of
+            Nothing -> [hsx|
+                <div class="bg-amber-50 border border-amber-200 rounded p-3 mb-6 text-sm text-amber-800">
+                    No active manifest. <a href={NewHubCapabilityManifestAction} class="underline">Create one</a> to register hub-owned types.
+                </div>
+            |]
+            Just m  -> [hsx|
+                <div class="grid grid-cols-2 gap-4 mb-6">
+                    {jsonArraySection "Widget Types" m.declaredWidgetTypes}
+                    {jsonArraySection "Event Types" m.declaredEventTypes}
+                    {jsonArraySection "Annotation Categories" m.declaredAnnotationCategories}
+                    {jsonArraySection "Policy Scopes" m.declaredPolicyScopes}
+                </div>
+            |]}
+
+        <h2 class="text-lg font-semibold mb-3">Health History</h2>
+        {if null healthHistory
+            then [hsx|<p class="text-sm text-gray-400 mb-6">No snapshots recorded yet.</p>|]
+            else [hsx|
+                <div class="overflow-x-auto mb-6">
+                    <table class="w-full text-sm">
+                        <thead>
+                            <tr class="text-xs text-gray-500 border-b border-gray-200">
+                                <th class="text-left py-2">Score</th>
+                                <th class="text-left py-2">Open Candidates</th>
+                                <th class="text-left py-2">Regressed Widgets</th>
+                                <th class="text-left py-2">Stale Decisions</th>
+                                <th class="text-left py-2">Active Bottlenecks</th>
+                                <th class="text-left py-2">Computed At</th>
+                            </tr>
+                        </thead>
+                        <tbody>
+                            {forEach healthHistory renderSnapshotRow}
+                        </tbody>
+                    </table>
+                </div>
+            |]}
+
+        <h2 class="text-lg font-semibold mb-3">Adopted Patterns</h2>
+        {if null adoptedPatterns
+            then [hsx|<p class="text-sm text-gray-400">No patterns adopted yet. <a href={WidgetPatternsAction} class="text-indigo-600 hover:underline">Browse patterns →</a></p>|]
+            else [hsx|
+                <div class="space-y-2">
+                    {forEach adoptedPatterns renderAdoptedPattern}
+                </div>
+            |]}
+    |]
+
+manifestCell :: Maybe HubCapabilityManifest -> Id Hub -> Html
+manifestCell Nothing hubId = [hsx|
+    <div class="mt-1">
+        <span class="text-sm text-gray-400">None</span>
+        <a href={NewHubCapabilityManifestAction}
+           class="ml-2 text-xs text-indigo-600 hover:underline">Create</a>
+    </div>
+|]
+manifestCell (Just m) _ = [hsx|
+    <div class="mt-1 flex items-center gap-2">
+        <span class="font-mono text-sm">{m.manifestVersion}</span>
+        <a href={ShowHubCapabilityManifestAction { hubCapabilityManifestId = m.id }}
+           class="text-xs text-indigo-600 hover:underline">View</a>
+    </div>
+|]
+
+gaafBadge :: GaafStatus -> Html
+gaafBadge GaafCompliant  =
+    [hsx|<span class="px-2 py-0.5 rounded text-xs bg-green-100 text-green-800">GAAF compliant</span>|]
+gaafBadge GaafDraftOnly  =
+    [hsx|<span class="px-2 py-0.5 rounded text-xs bg-amber-100 text-amber-800">draft manifest</span>|]
+gaafBadge GaafNoManifest =
+    [hsx|<span class="px-2 py-0.5 rounded text-xs bg-red-100 text-red-700">no manifest</span>|]
+
+jsonArraySection :: Text -> Value -> Html
+jsonArraySection title val = [hsx|
+    <div class="bg-white rounded-lg border border-gray-200 p-4">
+        <h3 class="text-sm font-semibold text-gray-700 mb-2">
+            {title} <span class="text-gray-400 font-normal ml-1">({arrayLen val})</span>
+        </h3>
+        {renderArrayItems val}
+    </div>
+|]
+
+renderArrayItems :: Value -> Html
+renderArrayItems (Array v) | V.null v =
+    [hsx|<p class="text-xs text-gray-400">None declared</p>|]
+renderArrayItems (Array v) = [hsx|
+    <ul class="space-y-1">
+        {forEach (V.toList v) renderItem}
+    </ul>
+|]
+renderArrayItems _ = [hsx|<p class="text-xs text-gray-400">—</p>|]
+
+renderItem :: Value -> Html
+renderItem (String t) = [hsx|<li class="font-mono text-xs text-gray-700">{t}</li>|]
+renderItem v          = [hsx|<li class="font-mono text-xs text-gray-500">{cs (BL.unpack (encode v)) :: Text}</li>|]
+
+arrayLen :: Value -> Text
+arrayLen (Array v) = tshow (V.length v)
+arrayLen _         = "0"
+
+renderSnapshotRow :: HubHealthSnapshot -> Html
+renderSnapshotRow s = [hsx|
+    <tr class="border-b border-gray-100 text-sm">
+        <td class="py-2 font-medium">{tshow s.healthScore}</td>
+        <td class="py-2">{tshow s.openCandidates}</td>
+        <td class="py-2">{tshow s.regressedWidgets}</td>
+        <td class="py-2">{tshow s.staleDecisions}</td>
+        <td class="py-2">{tshow s.activeBottlenecks}</td>
+        <td class="py-2 text-gray-500">{tshow s.computedAt}</td>
+    </tr>
+|]
+
+renderAdoptedPattern :: AdoptedPatternRow -> Html
+renderAdoptedPattern (patternId, patternName, widgetType, _, _, isPinned, adoptedAt) = [hsx|
+    <div class="bg-white rounded border border-gray-200 p-3 flex items-center justify-between">
+        <div>
+            <a href={ShowWidgetPatternAction { widgetPatternId = patternId }}
+               class="font-medium text-sm text-indigo-700 hover:underline">
+                {patternName}
+            </a>
+            <span class="ml-2 font-mono text-xs text-gray-400">{widgetType}</span>
+        </div>
+        <div class="flex items-center gap-2 text-xs text-gray-500">
+            {if isPinned
+                then [hsx|<span class="px-2 py-0.5 rounded bg-blue-100 text-blue-700">pinned</span>|]
+                else [hsx|<span class="px-2 py-0.5 rounded bg-gray-100 text-gray-500">follow latest</span>|]}
+            <span>{tshow adoptedAt}</span>
+        </div>
+    </div>
+|]

Web/View/MarketplaceDashboard/Show.hs

@@ -0,0 +1,160 @@
+module Web.View.MarketplaceDashboard.Show where
+
+import Web.Types
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+import Data.Aeson (Value(..), decode, encode)
+import qualified Data.ByteString.Lazy.Char8 as BL
+
+type PatternRow  = (WidgetPattern, Int)   -- pattern + adopter_count
+type TemplateRow = (GovernanceTemplate, Int) -- template + clone_count
+type TrendingRow = (Id WidgetPattern, Text, Text, Int)  -- id, name, widget_type, recent_adoptions
+
+data ShowView = ShowView
+    { patterns         :: ![PatternRow]
+    , templates        :: ![TemplateRow]
+    , trending         :: ![TrendingRow]
+    , widgetTypeOptions :: ![(Text, Text)]   -- (name, label)
+    , searchQuery      :: !(Maybe Text)
+    , selectedType     :: !(Maybe Text)
+    , sortOrder        :: !Text
+    }
+
+instance View ShowView where
+    html ShowView { .. } = [hsx|
+        <div class="flex items-center justify-between mb-6">
+            <div>
+                <h1 class="text-2xl font-semibold">Marketplace</h1>
+                <p class="text-sm text-gray-500 mt-1">
+                    Discover and adopt reusable widget patterns and governance templates.
+                    <a href={HubRegistryAction} class="ml-2 text-indigo-600 hover:underline">Hub Registry →</a>
+                </p>
+            </div>
+        </div>
+
+        {searchBar searchQuery selectedType sortOrder widgetTypeOptions}
+
+        {if not (null trending)
+            then [hsx|
+                <div class="mb-6">
+                    <h2 class="text-sm font-semibold text-gray-600 uppercase tracking-wide mb-3">
+                        Trending (last 30 days)
+                    </h2>
+                    <div class="flex flex-wrap gap-2">
+                        {forEach trending renderTrendingChip}
+                    </div>
+                </div>
+            |]
+            else mempty}
+
+        <div class="grid grid-cols-2 gap-8">
+            <div>
+                <h2 class="text-lg font-semibold mb-3">
+                    Widget Patterns
+                    <span class="text-sm font-normal text-gray-400 ml-1">({tshow (length patterns)})</span>
+                </h2>
+                <div class="space-y-2">
+                    {forEach patterns renderPatternRow}
+                    {if null patterns
+                        then [hsx|<p class="text-sm text-gray-400">No patterns match your search.</p>|]
+                        else mempty}
+                </div>
+            </div>
+            <div>
+                <h2 class="text-lg font-semibold mb-3">
+                    Governance Templates
+                    <span class="text-sm font-normal text-gray-400 ml-1">({tshow (length templates)})</span>
+                </h2>
+                <div class="space-y-2">
+                    {forEach templates renderTemplateRow}
+                    {if null templates
+                        then [hsx|<p class="text-sm text-gray-400">No templates match your search.</p>|]
+                        else mempty}
+                </div>
+            </div>
+        </div>
+    |]
+
+searchBar :: Maybe Text -> Maybe Text -> Text -> [(Text, Text)] -> Html
+searchBar mSearch mWType sortOrder wtOptions = [hsx|
+    <form method="GET" action={MarketplaceDashboardAction} class="mb-6 flex items-end gap-3">
+        <div class="flex-1">
+            <label class="block text-xs text-gray-500 mb-1">Search</label>
+            <input type="text" name="q" value={fromMaybe "" mSearch}
+                placeholder="Search patterns and templates..."
+                class="w-full border border-gray-300 rounded px-3 py-2 text-sm" />
+        </div>
+        <div>
+            <label class="block text-xs text-gray-500 mb-1">Widget Type</label>
+            <select name="widgetType" class="border border-gray-300 rounded px-3 py-2 text-sm font-mono">
+                <option value="">All types</option>
+                {forEach wtOptions (\(n, l) -> [hsx|
+                    <option value={n} selected={mWType == Just n}>{l}</option>
+                |])}
+            </select>
+        </div>
+        <div>
+            <label class="block text-xs text-gray-500 mb-1">Sort</label>
+            <select name="sort" class="border border-gray-300 rounded px-3 py-2 text-sm">
+                <option value="adopted" selected={sortOrder == "adopted"}>Most adopted</option>
+                <option value="recent"  selected={sortOrder == "recent"}>Recently published</option>
+                <option value="alpha"   selected={sortOrder == "alpha"}>Alphabetical</option>
+            </select>
+        </div>
+        <button type="submit"
+            class="text-sm bg-indigo-600 text-white px-4 py-2 rounded hover:bg-indigo-700">
+            Search
+        </button>
+    </form>
+|]
+
+renderPatternRow :: PatternRow -> Html
+renderPatternRow (pattern, adopterCount) = [hsx|
+    <div class="bg-white rounded border border-gray-200 p-3 hover:border-indigo-200">
+        <div class="flex items-center justify-between">
+            <a href={ShowWidgetPatternAction { widgetPatternId = pattern.id }}
+               class="font-medium text-sm text-indigo-700 hover:underline">
+                {pattern.name}
+            </a>
+            <span class="text-xs text-gray-400">{tshow adopterCount} adopters</span>
+        </div>
+        <span class="font-mono text-xs text-gray-400">{pattern.widgetType}</span>
+        {maybe mempty (\d -> [hsx|<p class="text-xs text-gray-500 mt-1 truncate">{d}</p>|]) pattern.description}
+    </div>
+|]
+
+renderTemplateRow :: TemplateRow -> Html
+renderTemplateRow (template, cloneCount) = [hsx|
+    <div class="bg-white rounded border border-gray-200 p-3 hover:border-indigo-200">
+        <div class="flex items-center justify-between">
+            <a href={ShowGovernanceTemplateAction { governanceTemplateId = template.id }}
+               class="font-medium text-sm text-indigo-700 hover:underline">
+                {template.name}
+            </a>
+            <span class="text-xs text-gray-400">{tshow cloneCount} clones</span>
+        </div>
+        {maybe mempty (\d -> [hsx|<p class="text-xs text-gray-500 mt-1 truncate">{d}</p>|]) template.description}
+        <div class="mt-1 flex flex-wrap gap-1">
+            {forEach (jsonArrayTexts template.categories) (\c -> [hsx|
+                <span class="px-1.5 py-0.5 rounded text-xs bg-blue-50 text-blue-600 font-mono">{c}</span>
+            |])}
+        </div>
+    </div>
+|]
+
+renderTrendingChip :: TrendingRow -> Html
+renderTrendingChip (patternId, name, widgetType, count) = [hsx|
+    <a href={ShowWidgetPatternAction { widgetPatternId = patternId }}
+       class="flex items-center gap-1.5 px-3 py-1.5 bg-white rounded border border-gray-200 \
+             \text-sm hover:border-indigo-300">
+        <span class="font-medium">{name}</span>
+        <span class="font-mono text-xs text-gray-400">{widgetType}</span>
+        <span class="text-xs text-indigo-600">{tshow count} adoptions</span>
+    </a>
+|]
+
+jsonArrayTexts :: Value -> [Text]
+jsonArrayTexts val = case decode (encode val) of
+    Just (arr :: [Text]) -> arr
+    Nothing              -> []

Web/View/WidgetPatterns/Edit.hs

@@ -0,0 +1,49 @@
+module Web.View.WidgetPatterns.Edit where
+
+import Web.Types
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+
+data EditView = EditView
+    { pattern     :: !WidgetPattern
+    , hubs        :: ![Hub]
+    , widgetTypes :: ![(Text, Text)]
+    }
+
+instance View EditView where
+    html EditView { .. } = [hsx|
+        <div class="mb-4">
+            <a href={ShowWidgetPatternAction { widgetPatternId = pattern.id }}
+               class="text-sm text-gray-500 hover:text-gray-700">
+                ← Pattern
+            </a>
+        </div>
+        <h1 class="text-2xl font-semibold mb-6">Edit Pattern</h1>
+
+        <form method="POST" action={UpdateWidgetPatternAction { widgetPatternId = pattern.id }}>
+            {csrfTokenFormField}
+            <div class="space-y-4 max-w-lg">
+                <div>
+                    <label class="block text-sm font-medium text-gray-700 mb-1">Name</label>
+                    <input type="text" name="name" value={pattern.name}
+                        class="w-full border border-gray-300 rounded px-3 py-2 text-sm" />
+                </div>
+                <div>
+                    <label class="block text-sm font-medium text-gray-700 mb-1">Widget Type</label>
+                    <p class="font-mono text-sm text-gray-600">{pattern.widgetType}</p>
+                    <p class="text-xs text-gray-400">Widget type cannot be changed after creation.</p>
+                </div>
+                <div>
+                    <label class="block text-sm font-medium text-gray-700 mb-1">Description</label>
+                    <textarea name="description" rows="3"
+                        class="w-full border border-gray-300 rounded px-3 py-2 text-sm"
+                        >{fromMaybe "" pattern.description}</textarea>
+                </div>
+                <button type="submit"
+                    class="text-sm bg-indigo-600 text-white px-4 py-2 rounded hover:bg-indigo-700">
+                    Save
+                </button>
+            </div>
+        </form>
+    |]

Web/View/WidgetPatterns/Index.hs

@@ -0,0 +1,57 @@
+module Web.View.WidgetPatterns.Index where
+
+import Web.Types
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+
+-- Row: WidgetPattern fields + adopter_count + latest_version
+type PatternIndexRow = (WidgetPattern, Int, Maybe Int)
+
+data IndexView = IndexView
+    { patterns :: ![PatternIndexRow]
+    }
+
+instance View IndexView where
+    html IndexView { .. } = [hsx|
+        <div class="flex items-center justify-between mb-6">
+            <div>
+                <h1 class="text-2xl font-semibold">Widget Pattern Library</h1>
+                <p class="text-sm text-gray-500 mt-1">Published reusable widget patterns.</p>
+            </div>
+            <a href={NewWidgetPatternAction}
+               class="text-sm bg-indigo-600 text-white px-3 py-1.5 rounded hover:bg-indigo-700">
+                New Pattern
+            </a>
+        </div>
+
+        <div class="space-y-3">
+            {forEach patterns renderPatternRow}
+            {if null patterns
+                then [hsx|<p class="text-sm text-gray-400">No published patterns yet.</p>|]
+                else mempty}
+        </div>
+    |]
+
+renderPatternRow :: PatternIndexRow -> Html
+renderPatternRow (pattern, adopterCount, mVersion) = [hsx|
+    <div class="bg-white rounded-lg border border-gray-200 p-4 hover:border-indigo-200">
+        <div class="flex items-center justify-between">
+            <div class="flex items-center gap-3">
+                <a href={ShowWidgetPatternAction { widgetPatternId = pattern.id }}
+                   class="font-medium text-indigo-700 hover:underline">
+                    {pattern.name}
+                </a>
+                <span class="font-mono text-xs text-gray-400">{pattern.widgetType}</span>
+                {if pattern.isCrossHub
+                    then [hsx|<span class="px-2 py-0.5 rounded text-xs bg-purple-100 text-purple-700">cross-hub</span>|]
+                    else mempty}
+            </div>
+            <div class="flex items-center gap-3 text-xs text-gray-500">
+                <span>{tshow adopterCount} adopters</span>
+                {maybe mempty (\v -> [hsx|<span class="font-mono">v{tshow v}</span>|]) mVersion}
+            </div>
+        </div>
+        {maybe mempty (\d -> [hsx|<p class="text-xs text-gray-500 mt-1">{d}</p>|]) pattern.description}
+    </div>
+|]

Web/View/WidgetPatterns/New.hs

@@ -0,0 +1,64 @@
+module Web.View.WidgetPatterns.New where
+
+import Web.Types
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+
+data NewView = NewView
+    { pattern     :: !WidgetPattern
+    , hubs        :: ![Hub]
+    , widgetTypes :: ![(Text, Text)]  -- (name, label)
+    }
+
+instance View NewView where
+    html NewView { .. } = [hsx|
+        <div class="mb-4">
+            <a href={WidgetPatternsAction} class="text-sm text-gray-500 hover:text-gray-700">
+                ← Widget Patterns
+            </a>
+        </div>
+        <h1 class="text-2xl font-semibold mb-6">New Widget Pattern</h1>
+
+        {renderForm pattern hubs widgetTypes}
+    |]
+
+renderForm :: WidgetPattern -> [Hub] -> [(Text, Text)] -> Html
+renderForm pattern hubs widgetTypes = [hsx|
+    <form method="POST" action={CreateWidgetPatternAction}>
+        {csrfTokenFormField}
+        <div class="space-y-4 max-w-lg">
+            <div>
+                <label class="block text-sm font-medium text-gray-700 mb-1">Name</label>
+                <input type="text" name="name" value={pattern.name}
+                    class="w-full border border-gray-300 rounded px-3 py-2 text-sm" />
+            </div>
+            <div>
+                <label class="block text-sm font-medium text-gray-700 mb-1">Hub</label>
+                <select name="hubId" class="w-full border border-gray-300 rounded px-3 py-2 text-sm">
+                    {forEach hubs (\h -> [hsx|
+                        <option value={tshow h.id}>{h.name}</option>
+                    |])}
+                </select>
+            </div>
+            <div>
+                <label class="block text-sm font-medium text-gray-700 mb-1">Widget Type</label>
+                <select name="widgetType" class="w-full border border-gray-300 rounded px-3 py-2 text-sm font-mono">
+                    {forEach widgetTypes (\(n, l) -> [hsx|
+                        <option value={n}>{l} ({n})</option>
+                    |])}
+                </select>
+            </div>
+            <div>
+                <label class="block text-sm font-medium text-gray-700 mb-1">Description</label>
+                <textarea name="description" rows="3"
+                    class="w-full border border-gray-300 rounded px-3 py-2 text-sm"
+                    >{fromMaybe "" pattern.description}</textarea>
+            </div>
+            <button type="submit"
+                class="text-sm bg-indigo-600 text-white px-4 py-2 rounded hover:bg-indigo-700">
+                Create Pattern
+            </button>
+        </div>
+    </form>
+|]

Web/View/WidgetPatterns/Show.hs

@@ -0,0 +1,146 @@
+module Web.View.WidgetPatterns.Show where
+
+import Web.Types
+import Generated.Types
+import IHP.Prelude
+import IHP.ViewPrelude
+import Data.Aeson (encode)
+import qualified Data.ByteString.Lazy.Char8 as BL
+
+data ShowView = ShowView
+    { pattern      :: !WidgetPattern
+    , hub          :: !Hub
+    , versions     :: ![WidgetPatternVersion]
+    , adopterCount :: !Int
+    , anonCount    :: !Int
+    , meanFriction :: !(Maybe Double)
+    , outcomeCount :: !Int
+    }
+
+instance View ShowView where
+    html ShowView { .. } = [hsx|
+        <div class="mb-4">
+            <a href={WidgetPatternsAction} class="text-sm text-gray-500 hover:text-gray-700">
+                ← Widget Patterns
+            </a>
+        </div>
+
+        <div class="flex items-center gap-3 mb-2">
+            <h1 class="text-2xl font-semibold">{pattern.name}</h1>
+            <span class="font-mono text-sm text-gray-400">{pattern.widgetType}</span>
+            {if pattern.isCrossHub
+                then [hsx|<span class="px-2 py-0.5 rounded text-xs bg-purple-100 text-purple-700">cross-hub</span>|]
+                else mempty}
+            {if pattern.isPublished
+                then [hsx|<span class="px-2 py-0.5 rounded text-xs bg-green-100 text-green-800">published</span>|]
+                else [hsx|<span class="px-2 py-0.5 rounded text-xs bg-amber-100 text-amber-800">draft</span>|]}
+        </div>
+
+        <p class="text-sm text-gray-500 mb-1">Hub: {hub.name}</p>
+        <p class="text-sm text-gray-500 mb-4">{tshow adopterCount} adopters</p>
+
+        {maybe mempty (\d -> [hsx|<p class="text-sm text-gray-600 mb-4">{d}</p>|]) pattern.description}
+
+        {aggregatePanel adopterCount anonCount meanFriction outcomeCount}
+
+        <div class="flex gap-2 mb-6">
+            {if not pattern.isPublished
+                then [hsx|
+                    <a href={EditWidgetPatternAction { widgetPatternId = pattern.id }}
+                       class="text-sm border border-gray-300 text-gray-700 px-3 py-1.5 rounded hover:bg-gray-50">
+                        Edit
+                    </a>
+                    <a href={PublishWidgetPatternAction { widgetPatternId = pattern.id }}
+                       class="text-sm bg-green-600 text-white px-3 py-1.5 rounded hover:bg-green-700">
+                        Publish
+                    </a>
+                |]
+                else [hsx|
+                    <a href={AdoptPatternAction { widgetPatternId = pattern.id }}
+                       class="text-sm bg-indigo-600 text-white px-3 py-1.5 rounded hover:bg-indigo-700">
+                        Adopt Pattern
+                    </a>
+                |]}
+        </div>
+
+        <h2 class="text-lg font-semibold mb-3">Version History</h2>
+        {if null versions
+            then [hsx|<p class="text-sm text-gray-400 mb-6">No versions published yet.</p>|]
+            else [hsx|
+                <div class="space-y-3 mb-6">
+                    {forEach versions renderVersionRow}
+                </div>
+            |]}
+
+        {if pattern.isPublished
+            then [hsx|
+                <div class="border-t border-gray-200 pt-4">
+                    <h2 class="text-base font-semibold mb-3">Publish New Version</h2>
+                    <form method="POST" action={PublishNewVersionAction { widgetPatternId = pattern.id }}>
+                        {csrfTokenFormField}
+                        <div class="mb-3">
+                            <label class="block text-sm font-medium text-gray-700 mb-1">
+                                Definition (JSON)
+                            </label>
+                            <textarea name="definition" rows="4"
+                                class="w-full border border-gray-300 rounded px-3 py-2 text-sm font-mono"
+                                placeholder='{"key": "value"}'></textarea>
+                        </div>
+                        <div class="mb-3">
+                            <label class="block text-sm font-medium text-gray-700 mb-1">Changelog</label>
+                            <input type="text" name="changelog"
+                                class="w-full border border-gray-300 rounded px-3 py-2 text-sm"
+                                placeholder="What changed in this version?" />
+                        </div>
+                        <button type="submit"
+                            class="text-sm bg-indigo-600 text-white px-3 py-1.5 rounded hover:bg-indigo-700">
+                            Publish Version
+                        </button>
+                    </form>
+                </div>
+            |]
+            else mempty}
+    |]
+
+-- | Aggregate friction/outcome panel (T07)
+aggregatePanel :: Int -> Int -> Maybe Double -> Int -> Html
+aggregatePanel adopterCount anonCount meanFriction outcomeCount = [hsx|
+    <div class="bg-gray-50 rounded border border-gray-200 p-4 mb-6">
+        <h3 class="text-sm font-semibold text-gray-700 mb-3">Adoption Metrics</h3>
+        <div class="grid grid-cols-3 gap-4">
+            <div>
+                <p class="text-xs text-gray-500">Total Adopters</p>
+                <p class="text-lg font-semibold">{tshow adopterCount}</p>
+                {if anonCount > 0
+                    then [hsx|<p class="text-xs text-gray-400">{tshow anonCount} opted out of aggregate feedback</p>|]
+                    else mempty}
+            </div>
+            <div>
+                <p class="text-xs text-gray-500">Mean Friction Score</p>
+                <p class="text-lg font-semibold">
+                    {maybe "—" (\f -> tshow (round f :: Int)) meanFriction}
+                </p>
+                <p class="text-xs text-gray-400">non-anonymous adopters</p>
+            </div>
+            <div>
+                <p class="text-xs text-gray-500">Outcome Signals</p>
+                <p class="text-lg font-semibold">{tshow outcomeCount}</p>
+            </div>
+        </div>
+    </div>
+|]
+
+renderVersionRow :: WidgetPatternVersion -> Html
+renderVersionRow v = [hsx|
+    <div class="bg-white rounded border border-gray-200 p-3">
+        <div class="flex items-center justify-between mb-1">
+            <span class="font-mono text-sm font-medium">v{tshow v.versionNumber}</span>
+            <span class="text-xs text-gray-400">{tshow v.publishedAt}</span>
+        </div>
+        {maybe mempty (\c -> [hsx|<p class="text-xs text-gray-600">{c}</p>|]) v.changelog}
+        <details class="mt-2">
+            <summary class="text-xs text-gray-400 cursor-pointer">Definition</summary>
+            <pre class="text-xs text-gray-600 mt-1 overflow-x-auto">{cs (BL.unpack (encode v.definition)) :: Text}</pre>
+        </details>
+    </div>
+|]