inter-hub-haskell/Web/Controller/Api/V2/WidgetPatterns.hs

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, paginatedResponse, getPageParams)
import Application.Helper.ApiRateLimit (checkRateLimitAndLog)

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 <- query @WidgetPattern
            |> filterWhere (#isPublished, True)
            |> orderByAsc #name
            |> limit perPage
            |> offset off
            |> fetch
        renderJson $ paginatedResponse (map patternToJson 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, ?request :: Request) => Int -> Value -> IO ()
renderJsonWithStatus _code val =
    renderJson val  -- IHP renderJson always uses 200; status override requires 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
    ]