{-# LANGUAGE OverloadedStrings #-}

module Ketchup.Auth
( basicAuth
) where

import qualified Data.ByteString.Char8 as B
import           Ketchup.Utils

basicAuth :: B.ByteString -> Handler