{-# LANGUAGE FlexibleContexts #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} module Clckwrks.Unauthorized ( unauthorizedPage ) where import Control.Applicative ((<$>)) import HSP import Happstack.Server (Happstack, Response, ToMessage, toResponse, unauthorized) import qualified HSX.XMLGenerator (XMLType) unauthorizedPage :: ( Happstack m , XMLGenerator m , EmbedAsChild m msg , ToMessage (XMLType m) ) => msg -> m Response unauthorizedPage msg = do unauthorized () toResponse <$> (unXMLGenT $ Unauthorized

Unauthorized

<% msg %>

)