inter-hub-haskell/Web/View/ApiKeys/Created.hs

module Web.View.ApiKeys.Created where

import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
import Web.Routes ()

data CreatedView = CreatedView
    { consumer :: !ApiConsumer
    , fullKey  :: !Text      -- one-time display; never stored
    }

instance View CreatedView where
    html CreatedView { .. } = [hsx|
        <div class="max-w-lg">
            <h1 class="text-2xl font-semibold mb-4">API Key Created</h1>
            <div class="bg-amber-50 border border-amber-300 rounded p-4 mb-6">
                <p class="text-sm font-semibold text-amber-800 mb-2">Copy this key now — it will never be shown again.</p>
                <div class="flex items-center gap-2">
                    <code class="bg-white border rounded px-3 py-2 text-sm font-mono flex-1 break-all">{fullKey}</code>
                    <button onclick="navigator.clipboard.writeText(this.previousElementSibling.textContent)"
                            class="border px-2 py-2 rounded text-xs hover:bg-gray-50">Copy</button>
                </div>
            </div>
            <p class="text-sm text-gray-600 mb-4">
                Use this key as a Bearer token in the <code>Authorization</code> header:
            </p>
            <pre class="bg-gray-900 text-gray-100 rounded p-3 text-xs overflow-x-auto mb-6">Authorization: Bearer {fullKey}</pre>
            <a href={ShowApiConsumerAction consumer.id}
               class="bg-indigo-600 text-white text-sm font-medium px-4 py-2 rounded hover:bg-indigo-700">
                Back to Consumer
            </a>
        </div>
    |]