inter-hub-haskell/Web/View/Sessions/New.hs

module Web.View.Sessions.New where

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

data NewView = NewView { user :: !User }

instance View NewView where
    html NewView { .. } = [hsx|
        <div class="max-w-sm mx-auto mt-16">
            <h1 class="text-2xl font-semibold mb-6">Sign in to inter-hub</h1>
            <form method="POST" action={CreateSessionAction} class="space-y-4">
                {renderFlashMessages}
                <div>
                    <label class="block text-sm font-medium text-gray-700 mb-1">Email</label>
                    <input type="email" name="email" required
                           class="w-full border border-gray-300 rounded px-3 py-2 text-sm
                                  focus:outline-none focus:ring-2 focus:ring-indigo-500" />
                </div>
                <div>
                    <label class="block text-sm font-medium text-gray-700 mb-1">Password</label>
                    <input type="password" name="password" required
                           class="w-full border border-gray-300 rounded px-3 py-2 text-sm
                                  focus:outline-none focus:ring-2 focus:ring-indigo-500" />
                </div>
                <button type="submit"
                        class="w-full bg-indigo-600 text-white rounded px-4 py-2 text-sm font-medium
                               hover:bg-indigo-700 focus:outline-none focus:ring-2 focus:ring-indigo-500">
                    Sign in
                </button>
            </form>
        </div>
    |]