[examples/ConnectDemo.hs: make members area slightly more interesting. Jeremy Shaw **20091016191318 Ignore-this: 9b391a2da29b5d82d8d5ec6cc7c25ec4 ] hunk ./examples/ConnectDemo.hs 23 - msum [ withSessionSP $ fbml (appTemplate "Members Area" ()

Welcome to the Members Area

) + msum [ withSessionSP $ fbml (do user <- askUser + appTemplate "Members Area" () +
+

Welcome to the Members Area

+

Hello, .

+

You look like this .

+
+ ) hunk ./examples/ConnectDemo.hs 55 --- , EmbedAsAttr m (Attr (String, String) String) + , EmbedAsAttr m (Attr (String, String) String) hunk ./examples/ConnectDemo.hs 62 - -- xmlns="http://www.w3.org/1999/xhtml" xmlns:fb="http://www.facebook.com/2008/fbml"> +