{-# LANGUAGE FlexibleContexts #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} module Main where import Control.Applicative ((<$>)) import Control.Monad (msum) import Happstack.Server (FilterMonad, Response, ServerPart, nullConf, simpleHTTP, toResponse) import Happstack.Facebook.Common (FacebookConfig(apiKey), HasFacebookConfig(askFacebookConfig), HasUser(askUser), FbXML(FbXML), User(uid)) import Happstack.Facebook.Connect (withFacebookConnect, withSessionSP) import Happstack.Facebook.XdReceiver (fbInit, fbFeatureLoader, xdReceiverPart) import HSP import FacebookConfig (facebookConfig) import qualified HSX.XMLGenerator as HSX main :: IO () main = simpleHTTP nullConf impl impl :: ServerPart Response impl = msum [ withFacebookConnect facebookConfig $ msum [ xdReceiverPart -- xd_receiver.htm , withSessionSP $ fbml (do user <- askUser appTemplate "Members Area" ()
Hello,
You look like this