SignOut.hs

module Bein.Web.Pages.SignOut where

import Bein.Web.Authentication
import Bein.Web.Types
import Happstack.Server

signOut :: BeinServerPart Response
signOut = do
  clearSession
  seeOther "/" $ toResponse "Redirecting..."