{-# OPTIONS_GHC -F -pgmFtrhsx #-} module Happstack.Facebook.XdReceiver where import Control.Applicative((<$>)) import Control.Monad (MonadPlus(..)) import Control.Monad.Trans(MonadIO(..)) import Happstack.Server (ServerMonad(..), Response, dir) import HSP import Happstack.Server.HSP.HTML (webHSP) import qualified HSX.XMLGenerator as HSX xdReceiverPart :: (MonadIO m, MonadPlus m, ServerMonad m) => m Response xdReceiverPart = dir "xd_receiver.htm" $ webHSP xdReceiverXML -- xdReceiverXML :: (XMLGenerator m) => XMLGenT m (HSX.XML m) xdReceiverXML =