feat(WP-0009): IHF GAAF Compliance Foundation — type registries, extension manifests, architectural contracts

Implements IHUB-WP-0009: closes four GAAF-2026 gaps before domain hub work begins.
- TypeRegistry helper + controllers/views (hub_kind, hub_capability_manifest)
- HubCapabilityManifest entity with validation and registry linkage
- ARCHITECTURE-LAYERS.md + CI-enforced boundary contracts
- Alembic migration 1743724800, fitness tests (Test/Architecture/)
- GAAF spec, Operational Architecture spec, domain hub extension guide
- Updates to CLAUDE.md, SCOPE.md, Schema.sql, Routes, FrontController, Types

state_hub_sync: pending (tunnel was STALE at completion time; run fix-consistency)

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

Web/View/Annotations/New.hs

@@ -8,6 +8,7 @@ import IHP.ViewPrelude
 data NewView = NewView
     { widget     :: !Widget
     , annotation :: !Annotation
+    , categories :: ![AnnotationCategoryRegistry]
     }
 
 instance View NewView where
@@ -21,28 +22,20 @@ instance View NewView where
                 <span>New</span>
             </div>
             <h1 class="text-2xl font-semibold mb-6">Add Annotation</h1>
-            {renderForm annotation widget.id}
+            {renderForm annotation widget.id categories}
         </div>
     |]
 
-renderForm :: Annotation -> Id Widget -> Html
-renderForm annotation widgetId = formFor annotation [hsx|
+renderForm :: Annotation -> Id Widget -> [AnnotationCategoryRegistry] -> Html
+renderForm annotation widgetId categories = formFor annotation [hsx|
     {(textareaField #body) { fieldLabel = "Comment" }}
-    {selectField #category categoryOptions}
+    {selectField #category (categoryOptions categories)}
     {selectField #severity severityOptions}
     {submitButton}
 |]
 
-categoryOptions :: [(Text, Text)]
-categoryOptions =
-    [ ("Friction",          "friction")
-    , ("Defect",            "defect")
-    , ("Wish",              "wish")
-    , ("Policy Concern",    "policy_concern")
-    , ("Documentation Gap", "doc_gap")
-    , ("Trust",             "trust")
-    , ("Other",             "other")
-    ]
+categoryOptions :: [AnnotationCategoryRegistry] -> [(Text, Text)]
+categoryOptions = map (\r -> (r.label, r.name))
 
 severityOptions :: [(Text, Text)]
 severityOptions =