;;;; cl-scopes/lib/auth - authentication services

(defpackage :scopes-auth
  (:use :common-lisp)
  (:local-nicknames (:dom :scopes/web/dom)
                    (:util :scopes/util))
  (:import-from :scopes/web/dom #:div #:label)
  (:export #:login))

(in-package :scopes-auth)

(defun login (cred)
  (util:lgi cred))