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

35 lines
1.5 KiB
Haskell
Raw Normal View History

2026-04-01 19:52:20 +00:00
module Web.View.ApiKeys.Created where
import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
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>
|]